Hello,
I am using Redemption Object to send automated emails in my report generation process. The process has been working fine. However recently I have noticed that the process send multiple copies of the same email to the recipients. Like a recipient will receive same message 4 or 5 times. I am attaching the code that I am currently using. Please help..
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(0)
Set safemail = CreateObject("Redemption.SafemailItem")
With myItem
'.To = "Someone@.com"
Set safemail.Item = myItem
safemail.Subject = "Subject"
safemail.attachments.Add "...xls"
.HTMLBody = "<HTML><BODY><P> Message Body</BODY></HTML>"
End With
safemail.Send
Set myOlApp = Nothing
Set safemail = Nothing
I am using Redemption Object to send automated emails in my report generation process. The process has been working fine. However recently I have noticed that the process send multiple copies of the same email to the recipients. Like a recipient will receive same message 4 or 5 times. I am attaching the code that I am currently using. Please help..
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(0)
Set safemail = CreateObject("Redemption.SafemailItem")
With myItem
'.To = "Someone@.com"
Set safemail.Item = myItem
safemail.Subject = "Subject"
safemail.attachments.Add "...xls"
.HTMLBody = "<HTML><BODY><P> Message Body</BODY></HTML>"
End With
safemail.Send
Set myOlApp = Nothing
Set safemail = Nothing
