| 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: 6168
          | 
        
         
          
           | 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 | 
         
          
         | 
       
       
       
        |   |