Bonsoir,
J'ai un problem d'envoie d'email avec CDO, ma méthode fonctionne avec le serveur SMTP "smtp.gmail.com" mais ne fonctionne pas avec autre serveur comme : serveur.alt001.com.
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 private void SendMessage1(string mailfrom, string mailto, string password, string host, string subject, string body) { try { CDO.Message message = new CDO.Message(); CDO.IConfiguration configuration = message.Configuration; ADODB.Fields fields = configuration.Fields; ADODB.Field field = fields["http://schemas.microsoft.com/cdo/configuration/smtpserver"]; field.Value = host; field = fields["http://schemas.microsoft.com/cdo/configuration/smtpserverport"]; field.Value = 465; field = fields["http://schemas.microsoft.com/cdo/configuration/sendusing"]; field.Value = CDO.CdoSendUsing.cdoSendUsingPort; field = fields["http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"]; field.Value = CDO.CdoProtocolsAuthentication.cdoBasic; field = fields["http://schemas.microsoft.com/cdo/configuration/sendusername"]; field.Value = mailfrom; field = fields["http://schemas.microsoft.com/cdo/configuration/sendpassword"]; field.Value = password; field = fields["http://schemas.microsoft.com/cdo/configuration/smtpusessl"]; field.Value = true; fields.Update(); message.From = mailfrom; message.To = mailto; message.Subject = subject; message.TextBody = body; message.Send(); } catch (Exception ex) { ErrorMessage = ex.Message; } }
Partager