Help Macro

  Pedro Campos 18:20 30 Jul 2009
Locked

Hi There...

I have the "SendMail" macro below that sends the email to one recipient but i would like to to send to various recipients. can someone help?

' New1 Macro
' Macro recorded 30/07/2009 by pcampos
'

'
cln = MsgBox("Are you sure you have checked all daily checks? - You cannot recall the email once it is sent", vbYesNo)

If cln = vbYes Then

Filename = Range("A1").Value
Check_Date = Range("A2").Value
Format_Date = Format(Check_Date, "dd mmm yyyy")
Filename = "y:\Daily Processes\Daily Checks\" + Filename + " " + Format_Date + " final.xls"
ActiveWorkbook.SaveAs Filename

ActiveWorkbook.SendMail Recipients:="Pedro Campos", Subject:="Daily Checks" + " " + Format_Date
ActiveWorkbook.Close

Else
Range("E6").Select
End If
End Sub

  VoG II 18:28 30 Jul 2009

You should be able to get the correct syntax from click here

  Pedro Campos 20:19 30 Jul 2009

A bit too complicated and I am very new in this... I just need to add and extra email address where it says:

"ActiveWorkbook.SendMail Recipients:="Pedro Campos",

  OTT_Buzzard 20:46 30 Jul 2009

Try:

ActiveWorkbook.SendMail Array("Pedro Campos", "Fred Campos, "Blah blah blah")

  OTT_Buzzard 20:46 30 Jul 2009

Typo, missed speech marks:

ActiveWorkbook.SendMail Array("Pedro Campos", "Fred Campos", "Blah blah blah")

  Pedro Campos 21:12 30 Jul 2009

The "array" works perfectly and ia exactly waht I was looking for

  Pedro Campos 21:13 30 Jul 2009

closed

  Pedro Campos 21:37 30 Jul 2009

Can I also add a message body with some text?

  OTT_Buzzard 22:07 30 Jul 2009

I don't believe that SendMail can add a message body, althoug others may be able to prove me wrong!

This thread is now locked and can not be replied to.

Elsewhere on IDG sites

Best phone camera 2017

Stunning new film posters by Hattie Stewart, Joe Cruz & more

iPad Pro 10.5in (2017) review

28 astuces pour profiter au mieux de votre iPhone