Author |
|
toledo.carolina Newbie
Joined: 23 November 2017 Location: Brazil
Online Status: Offline Posts: 2
|
Posted: 23 November 2017 at 3:25pm | IP Logged
|
|
|
I'm trying to use a macro / vba code to send massive emails using smtp but not able to . I don't get any error / exception but also the e-mail is not sent
I tried using port 25 , 465 and 587 already
Sub send_emaill()
Dim myMail As CDO.Message
Set myMail = New CDO.Message
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.notes.na.collabserv.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "myid@br.ibm.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
myMail.Configuration.Fields.Update
With myMail
.Subject = "Test SMTP"
.From = "myid@br.ibm.com"
.To = "other@br.ibm.com"
.BCC = ""
.TextBody = "Test SMTP"
'.AddAttachment "C:\Users\takyar\Desktop\email-via-gmail.txt"
End With
On Error Resume Next
myMail.Send
MsgBox ("Mail has been sent")
Set myMail = Nothing
End Sub
|
Back to Top |
|
|
Igor AfterLogic Support
Joined: 24 June 2008 Location: United States
Online Status: Offline Posts: 6095
|
Posted: 23 November 2017 at 11:01pm | IP Logged
|
|
|
Not sure if the request belongs in here. Are you actually using MailBee.NET Objects anywhere in your application? Your code doesn't contain any indication of that.
--
Regards,
Igor, AfterLogic Support
|
Back to Top |
|
|