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
| Sub SendMail_Outlook()
'Avant de lancer cette macro, Dans l'éditeur VBA:
'Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim ol As Object
Dim olmail As Object
Dim ligne As Byte
Dim MailAd As String, MailAd1 As String
Set ol = CreateObject("outlook.Application")
Set olmail = ol.CreateItem(0)
'Set olmail = ol.CreateItem(0) --> pour test sous MAC
For ligne = 33 To 37
If Range("d" & ligne) <> "" Then
MailAd = Range("E" & ligne) & ";"
MailAd1 = MailAd & MailAd1
End If
Next ligne
With olmail
.BCC = MailAd1 'Range("E" & ligne) 'placer l'adresse mail de la ligne
.To = Range("J9")
.CC = Range("J8") & Range("J10")
.Subject = "CONSULTATION - " & Range("B16") 'le sujet + le nom
.Body = "Consultation ayant pour objet - " & Range("B16") & Range("d" & ligne) & " " _
& Range("B79")
'.Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
.Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer
End With
End Sub |
