Discussion :

[julius26]

Bonjour à tous,

via le code ci-dessous, j'arrive à envoyer des mails via un serveur gandi.
En revanche, je souhaiterai pourvoir les avoir sur mon webmail gandi dans les "mails envoyés". Par défaut, ça ne semble pas se faire.

Y a t-il une option à mettre en place ?

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
Dim Mail
Dim config
Dim fields
 
Set Mail = CreateObject("CDO.Message")
Set config = CreateObject("CDO.Configuration")
Set fields = config.fields
 
With fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort  ' SMTP SERVER
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.gandi.net" ' IP OF SERVER
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "login"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mdp"
.Update
End With
 
Set Mail.Configuration = config
 
With Mail
.From = strFrom
.To = strTo
.CC = strCC
.Subject = strSubject
.TextBody = strBody
.Send
End With
 
Set Mail = Nothing
Set fields = Nothing
Set config = Nothing

[Simplifi]

Hello
ayant été confronté au même problème et vu que la recherche de solutions avec CDO se fait "dans le noir et les mains attachées dans le dos"
j'ai envoyé le même message à moi même, un peu comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
With Mail
.From = strFrom
.To = strTo
.CC = strCC
.Subject = strSubject
.TextBody = strBody
.Send
.To = "mon_adresse"
.Subject = strSubject & " Message envoyé à " & strTo & " copie à " &  strCC
.Send
End With

[julius26]

Merci beaucoup.
J'avais effectivement pensé à ça ou me mettre en CCI mais je cherchais qq chose de plus simple