Private Sub sendSheet()
Dim eMailAddress As String
eMailAddress = Range("MgrEMail").Value
ActiveWorkbook.SendMail _
Recipients:=eMailAddress, _
Subject:="Forcast " & Format(Date, "mm-dd-yy ")
End Sub
"ssGuru" wrote:
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 ", "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 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