Kirim Email dari Excel

Untuk mengirim email dari excel diwajibkan untuk menginstall aplikasi outlook karena excel tidak bisa langsung mengirimkan email dari excel itu sendiri. Outlook adalah aplikasi desktop yang digunakan untuk mengirim maupun menerima email, sejatinya aplikasi ini hanyalah aplikasi untuk menyambungkan kita kepada penyedia layanan email. Setelah outlook tersambung ke penyedia layanan maka kita bisa membaca email maupun berkirim email melalui outlook.

Berikut adalah contoh kode untuk mengirim email dari excel :

Sub Mail_Workbook()
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
' This example sends the last saved version of the Activeworkbook object .
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
   ' Change the mail address and subject in the macro before you run it.
    With OutMail
        .To = "kepada@gmail.com"
        .cc = ""
        .BCC = ""
        .subject = "Working permit Number " & [D4].Value
        .body = "Berikut kami lampirkan file permit pekerjaan " & [J7].Value
        .Attachments.Add ActiveWorkbook.FullName
        ' You can add other files by uncommenting the following line.
        '.Attachments.Add ("C:\test.txt")
        ' In place of the following statement, you can use ".Display" to
        ' display the mail.
        .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

NB : Kode diatas akan meyertakan workbook yang sedang aktif sebagai attachment email

0 komentar