Использование CDO/SMTP/TLS в VB6 для отправки электронной почты smtp.office365.com почтовый сервер

Question

Я ищу дни, чтобы узнать, как установить сервер SMTP Office365 в приложении VB6. Мой код работает правильно с портом 465 и другими почтовыми серверами. НО он не работает с портом 587 и smtp.office365.com

Есть ли способ, которым я мог бы иметь TLS через 587 в VB6?

Благодаря

Answer 1

С помощью этого кода я могу отправить почту с помощью CDO в Office365.

Private Message As CDO.Message 
Private Attachment, Expression, Matches, FilenameMatch, i 

Sub enviar_mail() 

Set Message = New CDO.Message 
Message.Subject = "Test Mail" 
Message.From = "YourEmail@yourdomain.com" 
Message.To = "" 
Message.CC = "" 
Message.TextBody = "my text body here" 

Dim Configuration 
Set Configuration = CreateObject("CDO.Configuration") 
Configuration.Load -1 ' CDO Source Defaults 
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com" 
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@yourdomain.com" 
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPass" 
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 

Configuration.Fields.Update 

Set Message.Configuration = Configuration 
Message.Send 

End Sub

Answer 2

Этот код не работает для меня, пока несколько дней назад, когда мы перешли провайдера (или, возможно, что-то изменилось по совпадению на стороне сервера). Если я укажу порт 587, я получаю транспортную ошибку и не нашел решение для VBA. Пожалуйста, дайте мне знать, если это работает для вас, и если вы нашли способ использовать 587. (порт 25 не работает для меня тоже, такой же ошибки.)

Public Function SMTPSend(vSendTo, vsubject As Variant, vmessage As Variant) 
'This works 
Set emailObj = CreateObject("CDO.Message") 

emailObj.From = "name@myemail.com" 
emailObj.To = vSendTo 
emailObj.Subject = vsubject 
emailObj.TextBody = vmessage 
'emailObj.AddAttachment "c:\windows\win.ini" 

Set emailConfig = emailObj.configuration 


emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com" 
'Must exclude port if specifying SSL 
'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "name@myemail.com" 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword" 
emailConfig.Fields.Update 

emailObj.Send 

If Err.Number = 0 Then SMTPSend = True Else SMTPSend = False 

End Function 

Answer 3

Я не знаю, если вы могли бы исправить это, но я получил его с этим:

Private Sub Command1_Click() 

Dim oSmtp As New EASendMailObjLib.Mail 
oSmtp.LicenseCode = "TryIt" 

' Set your Hotmail email address 
oSmtp.FromAddr = "liveid@hotmail.com" 

' Add recipient email address 
oSmtp.AddRecipientEx "support@emailarchitect.net", 0 

' Set email subject 
oSmtp.Subject = "test email from hotmail account" 

' Set email body 
oSmtp.BodyText = "this is a test email sent from VB 6.0 project with hotmail" 

' Hotmail SMTP server address 
oSmtp.ServerAddr = "smtp.live.com" 

' Hotmail user authentication should use your 
' Hotmail email address as the user name. 
oSmtp.UserName = "liveid@hotmail.com" 
oSmtp.Password = "yourpassword" 

' Set port to 25, if you want to use 587 port, please change 25 to 587 
oSmtp.ServerPort = 25 

' detect SSL/TLS connection automatically 
oSmtp.SSL_init 

MsgBox "start to send email ..." 

If oSmtp.SendMail() = 0 Then 
    MsgBox "email was sent successfully!" 
Else 
    MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription() 
End If 

End Sub

шрифта: https://www.emailarchitect.net/easendmail/kb/vb.aspx?cat=4

Помните загрузить библиотеку:

http://easendmail-smtp-component-net-edition.soft112.com/

Просто замените параметры!