Macro to Send Email from Excel

[FAUZAN]

Hello All, I have record macro but have a problem in sending the email. My Macro did open Microsoft outlook. But I must write down the email address one by one. Iwant to send this email to example1@nothing.com, example2@nothing.com etc. Does anyone can help me to finish it?

Sub TEST4()

ActiveSheet.Range("$A$4:$N$2101").AutoFilter Field:=2, Criteria1:= _
"=Bandung", Operator:=xlOr, Criteria2:= _
"=Bandung MM"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Fauzan\AppData\Local\Temp\TEST KIRIM AUTO MAIL BY MACRO.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show


End Sub


Thank's in advance


Fauzan

 

[Andrew Poulsom]

This may help you:

Create and Mail PDF files with Excel 2007/2010

 

[FAUZAN]

Thank's for the reply. I've checked it and found it quite confusing to read them :D. I'm just a simply record macro person. But I'll learn and give it a try.