Sauvegarder mes mails envoyés par CDO [Résolu]

[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 :

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 :

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