Help Macro

  Pedro Campos 18:20 30 Jul 2009

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

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


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


  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 Black Friday Deals 2017

Black Friday Deals for Designers & Artists: Adobe, Apple, Corel Painter, Microsoft Surface, Wacom &e…

Best Black Friday Apple Deals 2017

Black Friday 2017 : date, sites participants & bonnes affaires