(VBA / MACRO EXCEL) AUTO SEND TABLE DATA USING OUTLOOK

hoolaaaaa...

kali ini saya akan membuat tutorial tentang AUTO KIRIM TABLE DATA  VIA OUTLOOK

tutorial kali ini sangat berhubungan dengan postingan saya yang sebelumnya.. VBA MACRO EXCEL KIRIM EMAIL OTOMASI VIA OUTLOOK

yaitu kirim email.. tetapi pada postingan saya sebelumnya hanya mengirim kata "Hello World"
nah kali ini saya akan mengirim TABLE DATA atau range yang sudah berformat..

berikut.. langkah2nya..

- Buka Excel dan kasih bberapa parameter serta tombol untuk menjalankan Tools

- Masukan data..

- Masuk ke VBA Editor dan ketikan coding berikut..

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 = Sheet1.Range("C3").Text
    .CC = Sheet1.Range("C4").Text
    .BCC = Sheet1.Range("C5").Text
    .Subject = Sheet1.Range("C6").Text
    
    ' .Body = "Hello World." // command / matikan codingan body
    .Display ' dan di display..
    
    ' naah.. pada bagian ini kita akan copy and paste data..
    Dim xInspect As Object
    Dim pageEditor As Object
    
    Set xInspect = newEmail.GetInspector
    Set pageEditor = xInspect.WordEditor
    
    Sheet1.Range("A8:D14").Copy
    
    pageEditor.Application.Selection.Start = Len(.Body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.Paste
    
    Set pageEditor = Nothing
    Set xInspect = Nothing
End With

Set newEmail = Nothing
Set outlook = Nothing

End Sub

- Atau untuk tutorial lebih lengkapnya bisa tonton video berikut..

- Selesai..

Semoga bermanfaat
salam #ExcelSakti #HappyCoding
:)