kirim email

contoh script vba excel

kirim email

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)

indotrainer01

Leave a Reply

Your email address will not be published. Required fields are marked *

Penyedia Jasa Training Reguler, Public Training, Inhouse Training untuk MS Excel Basic