Forum Discussion
Madhi
14 years agoContributor
Sub Send_Mail(to_emailid, cc_emailid)
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
.To = to_emailid
.Cc = cc_emailid
.Subject = "Test Complete Script Execution Details"
.Body = "Error Occured in : "
'.HTMLBody = "HTML version of message"
'.Attachments.Add ("f:\Test.txt")
.Send
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub
I use this function.
Related Content
- 9 months agoAnonymous
- 2 months agoStoplight
- 6 years agocamilagamabr
Recent Discussions
- 4 hours agoSvetaG