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
| Sub Send_Mail_Coup_Main() ' Procedure d'envoi Mail Coup de Main
Dim myMail As CDO.Message
Set myMail = New CDO.Message
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "azerty@gmail.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"
myMail.Configuration.Fields.Update
With myMail
.Subject = "Test Email from Test Prog Gest TSCP Coup de main " & Sheets("DonnéesDiverses").Range("C56").Value
.From = "azerty@gmail.com"
.To = "qsdfgh@free.fr"
.CC = ""
.BCC = ""
.TextBody = "Bonjour," & vbCrLf & "_" & vbCrLf & Sheets("DonnéesDiverses").Range("D56").Value & vbCrLf & " " & vbCrLf & " La Présidente "
'.AddAttachment "C:\Users\toto\Desktop\email-via-gmail.txt" ' si une piece jointe doit etre envoyée
End With
On Error Resume Next
myMail.Send
MsgBox ("Le Mail a été envoyé")
Set myMail = Nothing
End Sub |
