Sendmail with a named cell value as recipient

S

ssGuru

Have been working up an app and need to send emails from it.
I have reviewed Ron de Bruin's excellent articles and have configured
code to work.

Using Sendmail I can happily email colleagues if I use the prescribed
syntax:

Activeworkbook.Sendmail Recipient, Subject

Sooooooo,
Activeworkbook.Sendmail (e-mail address removed)", "Forcast " & Format(Now, "mm-dd-
yy")
After a dialogue warning asking permisssion about sending the mail it
works just fine with Outlook.

However I want to use the recipient name based on the value in a named
cell in the workbook
For example a cell NAMED "MgrEMail" with the value (e-mail address removed) as the
current value

I have tried the obvious .SendMail MgrEMail, "Forcast " & Format(Now,
"mm-dd-yy") but it just opens Outlook without a recipient.

Is there a way to do this?

Thanks,
Dennis
 
M

Mike

Private Sub sendSheet()
Dim eMailAddress As String

eMailAddress = Range("MgrEMail").Value

ActiveWorkbook.SendMail _
Recipients:=eMailAddress, _
Subject:="Forcast " & Format(Date, "mm-dd-yy ")


End Sub
 
S

ssGuru

Private Sub sendSheet()
Dim eMailAddress As String

eMailAddress = Range("MgrEMail").Value

ActiveWorkbook.SendMail _
Recipients:=eMailAddress, _
Subject:="Forcast " & Format(Date, "mm-dd-yy ")

End Sub

Thanks Mike. It worked perfectly with Outlook. I've also added some
other ranges to the subject and attached file name using the same
code.
Any known problems with other eMail clients? Eudora, LotusNotes,
etc..
Dennis
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top