Ini adalah script vba excel kirim email via outlook

*copy script dibawah ini kemudian paste di vba editor excel anda 

Sub sendemail()
'bekerja di Excel 2000-2016
Dim OutApp As Object
Dim OutMail As Object

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

On Error Resume Next
With OutMail
.to = "test@indotrainingcenter.com"
.CC = ""
.BCC = ""
.Subject = "ini judul email"
.Body = "Hi there, ini isi email "
.Attachments.Add ActiveWorkbook.FullName
'anda bisa mensisipkan attachment lain seperti yang dibawah ini
'.Attachments.Add ("C:\test.txt")
.display
'.Send -- ini untuk perintah langsung mengirim email tanpa dilihat terlebih dahulu
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

tips body email :

• gunakan script <b> — untuk huruf tebal
• gunakan script <i> — untuk huruf italic
• gunakan script <u> — untuk underline
• gunakan script <br> — untuk break (ganti spasi)
• gunakan script <font color=”red”> — untuk mengubah warna menjadi merah atau warna lainnya

tips menarik berikut nya : mengetahui lastrow (cells terakhir yang berisi kontent)