VBA (MACRO EXCEL) KIRIM EMAIL OTOMATIS VIA OUTLOOK

naaaahhh..

akhirnya saya menemukan feel kembali untuk menulis VBA ya..
kali ini VBA.. ngoding dikit lah.. hahaha

kali ini saya akan membuat TUTORIAL tools otomasi / otomatis (VBA / MACRO EXCEL) untuk kirim EMAIL via OUTLOOK.

jangan lupa untuk enable Macro Excelnya dulu.. bisa cek disini caranya

sebenernya..
ada beberapa cara kirim email di dunia programming..
karena saya mencari gampangnya dan tidak pakai acara install ini itu atau register ini dan ono..
yang mana susah lagi kalo minta install-in ke tim IT untuk install / register

harus isi form lah..
harus ijin dulu lah..
apalah apalah..
iis dahlia lah..

wiwik sagita lah..

via vallen lah.. waaaaaaaaaaaaaaaaaaaaaaahhhhhhhhhhhhhhhhhhhhhhh...

bahahahaaa..

intinya TOOLS ini hanya membutuhkan paket MICROSOFT OFFICE,
pastinya udah ada dong di PC kantor kalian..
kalo ga ada resign aje udah gan.. ya elaah hahahaa.. niat ini mah kalo ampe resign..
hahahahaa

 berikut langkah - langkahnya.. langsung tonton aje ye video nya..

atau bisa juga dimari

dan berikut.. codingannya..

       

Option Explicit

Private Sub CommandButton1_Click()
' ketikan coding berikut.. ikuti...

Dim outlook As Object
Dim newEmail As Object

Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)

With newEmail
    .To = "TO_email@AsalTulisAje.co.id"
    .CC = "CC_email@AsalTulisAje.co.id"
    .BCC = "BCC_email@AsalTulisAje.co.id"
    .Subject = "Email_Test_AsalTulisAje"
    .Body = "Hello World."
    .Display 'sangat dianjurkan untuk menggunakan perintah display ya..
            ' hal ini dilakukan untuk mengurangi human error
    '.Send 'juga nisa digunakan untuk menggunakan perintah Display
        ' send digunkan untuk lgsg mengirim email..
End With

Set newEmail = Nothing
Set outlook = Nothing

'oke.. saat nya test..
End Sub

      

oke.. sekian dulu ye.. tutorial dari ane..

semoga bermanfaat..

salam #ExcelSakti #HappyCoding
:)
#AsalTulisAje