Discussion :

[Vanibou]

Bonjour,

Je souhaiterais envoyer des mails automatiquement depuis ma boite de messagerie professionnelle
En cherchant dans divers forums, j'ai réussi à trouver le code correspondant avec CDO.
Malheureusement, j'ai un message d'erreur qui s'affiche à chaque fois :

"Erreur d'exécution '-2147220973 (80040213)'
Le transport a échoué dans sa connexion au serveur"

Je ne sais pas si le problème vient de là, mais je ne sais pas quelle syntaxe je dois utiliser pour renseigner l'IP du proxy

L'un ou l'une de vous pourrait il m'aider SVP?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub EnvoiMailCDO()
 
Set CDOmail = CreateObject("CDO.Message")
With CDOmail.Configuration.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/urlproxyserver") = "http://xx.xx.xx.xx"
    .Item("http://schemas.microsoft.com/cdo/configuration/proxyserverport") = 8080
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 465
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxx@xxxxxx.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
    .Update
End With
 
With CDOmail
    .To = "xxxxxxx@xxxxxx.com"""
    .From = "xxxxxxx@xxxxxx.com"""
    .Subject = "HOURRA...j'ai réussi!!!"
    .TextBody = "ça fonctionne"
    .Send
End With
    Set CDOmail = Nothing
 
End Sub

PS : soyez indulgent SVP, je suis débutante et c'est la première fois que je demande de l'aide dans les différents forums...
Et vous constaterez pour pour ma première fois, j'ai choisi les meilleurs!

[Vanibou]

Bonjour,

J'ai réussi à trouver une alternative en passant pas Lotus Notes
Pour ceux que ça pourrait intéresser voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Public Sub MailLotus(ByVal MailDestinataire As String, ByVal Sujet As String, ByVal CorpsMessage As String, ByVal FichierJoint As String)
 
On Error GoTo Gerreur
 
'Dim session As Domino.NotesSession
Dim session As Object
Dim db As Object
Dim doc As Object
Dim attachme As Object
Dim EmbedObj As Object
Dim attachment() As String
Dim i As Integer
 
Set session = CreateObject("notes.notessession")
Set db = session.GETDATABASE("", "")
Call db.openmail
 
Set doc = db.createdocument
 
With doc
    .form = "Memo"
    .sendto = MailDestinataire
    .Subject = Sujet
    .Body = CorpsMessage
    .From = session.COMMONUSERNAME
    .posteddate = Now
    .SaveMessageOnSend = True
End With
 
If FichierJoint <> "" Then
    attachment = Split(FichierJoint, ";")
    For i = 0 To UBound(attachment)
        Set attachme = doc.CreateRichTextItem("Attachment")
        Set EmbedObj = attachme.EMBEDOBJECT(1454, "", attachment(i), "Attachment")
    Next i
End If
 
Call doc.Send(True)
 
Exit Sub
Gerreur:
MsgBox Err.Number & " : " & Err.Description, vbCritical, "Erreur"
 
End Sub

Bonne journée à tous!