À l'aide de CDO/SMTP/TLS en VB6 pour envoyer un courriel smtp.office365.com serveur de messagerie

Je suis à la recherche pendant des jours pour trouver comment puis-je définir Office365 serveur SMTP dans mon application VB6. Mon code fonctionne correctement avec le port 465 et d'autres serveurs de messagerie.
MAIS il ne fonctionne pas avec le port 587 et smtp.office365.com

Est-il de toute façon je pourrais avoir TLS via 587 en VB6?

Grâce

Si quelqu'un a trouvé cette page vous demandez-vous comment envoyer un e-mail à partir d'Excel à l'aide de CDO, j'ai jeté un Google Doc Comment Envoyer un Courriel à partir d'Excel à l'aide de Gmail code sur GitHub gist

OriginalL'auteur Al007 | 2016-05-30

  1. 8

    Avec ce code, j'arrive à envoyer des messages à l'aide de 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 = "[email protected]"
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") = "[email protected]"
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

    OriginalL'auteur Jhony Donosso Gutierrez

  2. -1

    Ce code a fonctionné pour moi jusqu'à il y a quelques jours lorsque nous avons changé de FAI (ou peut-être quelque chose de changé par coïncidence sur le côté serveur). Si je spécifie le port 587, j'obtiens une erreur de transport et n'ont pas trouvé la solution pour que, avec VBA. S'il vous plaît laissez-moi savoir si cela fonctionne pour vous et si vous trouvez un moyen de les utiliser 587. (Port 25 ne fonctionne pas pour moi non plus, même erreur.)

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

emailObj.From = "[email protected]"
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") = "[email protected]"
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
    Lorsque j'ai mis le port ne fonctionne pas. Quand je quitte la smtpserverport champ, je suppose que c'est par défaut le port 25. J'ai trouvé notre nouveau FAI bloque les 25. En regardant autour, il semble CDO ou VBA n'est pas correctement passer la smtpserverport. Si quelqu'un connaît le secret, il y a beaucoup de messages comme celui-ci qui peut utiliser l'aide.
    Un .NET de la bibliothèque pas l'aide à VB6 ou code ASP Classique.
    Vous avez posté cela comme une réponse. Ce n'est pas une réponse, c'est une autre question.

    OriginalL'auteur pghcpa

  3. -1

    Je ne sais pas si vous avez pu le résoudre, mais je l'ai eu avec cette:

    Private Sub Command1_Click()

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

' Set your Hotmail email address
oSmtp.FromAddr = "[email protected]"

' Add recipient email address
oSmtp.AddRecipientEx "[email protected]", 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 = "[email protected]"
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

    Police: https://www.emailarchitect.net/easendmail/kb/vb.aspx?cat=4

    Souvenez-vous de télécharger la bibliothèque:

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

    Il Suffit De Remplacer Les Paramètres De!

    Avec CDO fonctionne pas pour moi, pour cette raison je utiliser cette bibliothèque "easendmail". Télécharger: easendmail-smtp-component-net-edition.soft112.com

    OriginalL'auteur Jhony Donosso Gutierrez