1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
TxtServeur = "messenger.hotmail.com"
Dim Mail As CDO.Message
Set Mail = CreateObject("CDO.Message")
On Error GoTo ErreurTrouver
With Mail
.Configuration.Fields.Resync
.From = TxtUtilisateur ' Mon adresse de départ
.To = TxtDestinataire ' Mon adresse cible
.Subject = "Voici le texte" ' Titre du message
.TextBody = "Bonjour" & vbCr & TxtEcrit ' Contenu du message
.AddAttachment "C:\image.jpg" ' Pièce jointe
.AutoGenerateTextBody = True
.DSNOptions = cdoDSNSuccessFailOrDelay
'.Configuration.Fields.Item(cdoURLProxyServer) = "server:80"
'.Configuration.Fields.Item(cdoURLProxyBypass) = "<local>"
.Configuration.Fields.Item(cdoSendUsingMethod) = CDOSendUsingPort
.Configuration.Fields.Item(cdoSMTPServer) = TxtServeur ' Mon serveur
.Configuration.Fields.Item(cdoSMTPServerPort) = 25
.Configuration.Fields.Item(cdoSMTPConnectionTimeout) = 20
.Configuration.Fields.Item(cdoSMTPAuthenticate) = cdoBasic
.Configuration.Fields.Item(cdoSendUserName) = TxtUtilisateur ' Mon login
.Configuration.Fields.Item(cdoSendPassword) = TxtPassword ' Mon pass
.Configuration.Fields.Item(cdoURLGetLatestVersion) = True
.Configuration.Fields.Update
.Send
End With
MsgBox "MESSAGE TRANSMIS", vbInformation + vbOKOnly, "INFORMATION " |
Partager