Emailing using code
Here is the basic code:
Sub SendMyMail()
Dim msgTo As String
Set appOutlook = CreateObject("Outlook.Application")
Set MailOutLook = appOutlook.CreateItem(olMailItem)
msgTo = InputBox("Please enter e-mail address", "Address")
With MailOutLook
.To = msgTo
.CC = ""
.BCC = ""
.Subject = ""
.Body = Location
'.Attachments.Add "C:\Path\File.here"
.Send
End With
MsgBox "Message sent to " & msgTo, vbOKOnly
End Sub
If you want to add an attachement, un-comment the .Attachements.Add line and
add the proper path.
Post back with questions!
--
Regards,
PJ
Please rate this post using the vote buttons if it was helpful.
"Stephen sjw_ost" wrote:
I am using code to email my worksheet. Everytime I run the code I get a
message that says;
A program is trying to send an email on your behalf. Do you wish to continue?
Of course I want to continue because I am sending the email intentionally.
How can I stop this message from coming up and just have my Outlook email
send?
Is this an Outlook security setting or can I bypass this message using VBA?
Thanks for any help
--
Stephen
|