I have a report I send out every day via e-mail. Currently I have my macro using ActiveDocument.SendMail. The problem is I have to type in the recipient's addresses every day. I want to get around that.
In Excel, I was able to use the following code:
Sub EmailReport()
Windows("Book1.xls").Activate
ActiveWorkbook.SendMail Recipients:=Array("email1@email.com", "email2@email.com"), _
Subject:=Date & " Status Report", ReturnReceipt:=True
End Sub
I can not find anywhere where Word will allow me to code the recipients and I have tried and tried with different variations of code and nothing has worked.
Can anyone help please?
In Excel, I was able to use the following code:
Sub EmailReport()
Windows("Book1.xls").Activate
ActiveWorkbook.SendMail Recipients:=Array("email1@email.com", "email2@email.com"), _
Subject:=Date & " Status Report", ReturnReceipt:=True
End Sub
I can not find anywhere where Word will allow me to code the recipients and I have tried and tried with different variations of code and nothing has worked.
Can anyone help please?
