Bonjour à tous
j'aurai besoin de votre aide pour finaliser mon application
Je n'arrive pas à insérer les différentes adresses qui se trouvent
dans les cellules suivantent :
B2:B5
C2:C10 pour CC
D2😀10 pour CCI
D'avance merci
Vmax
Sub Envoi()
FeuilAvecAdresse$ = "adr_mail" '(nom de la feuille ???)
RecipientAdres$ = Sheets(FeuilAvecAdresse$).Range("B2;B5") '(cellule adresse ???)
RecipientCC$ = Sheets(FeuilAvecAdresse$).Range("C2;C10") '(cellule adresse CC ???)
RecipientBCC$ = Sheets(FeuilAvecAdresse$).Range("D2😀10") '(cellule adresse BCC ???)
Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem
Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)
With olItem
.To = RecipientAdres$
.CC = RecipientCC$
.BBC = RecipientBCC$
.Subject = "Test"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body><b>Ce mot est en gras.</b> <p>" _
& "Ce " & "<u>Le mot est Ssouligné</u><p>" _
& "<body><b><FONT COLOR=RED>LE MOT est en rouge EST EN GRAS</FONT><p>" _
& "Ce " & "<i>mot</i> est en italique.</body><HTML>"
.Display
End With
End Sub
j'aurai besoin de votre aide pour finaliser mon application
Je n'arrive pas à insérer les différentes adresses qui se trouvent
dans les cellules suivantent :
B2:B5
C2:C10 pour CC
D2😀10 pour CCI
D'avance merci
Vmax
Sub Envoi()
FeuilAvecAdresse$ = "adr_mail" '(nom de la feuille ???)
RecipientAdres$ = Sheets(FeuilAvecAdresse$).Range("B2;B5") '(cellule adresse ???)
RecipientCC$ = Sheets(FeuilAvecAdresse$).Range("C2;C10") '(cellule adresse CC ???)
RecipientBCC$ = Sheets(FeuilAvecAdresse$).Range("D2😀10") '(cellule adresse BCC ???)
Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem
Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)
With olItem
.To = RecipientAdres$
.CC = RecipientCC$
.BBC = RecipientBCC$
.Subject = "Test"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body><b>Ce mot est en gras.</b> <p>" _
& "Ce " & "<u>Le mot est Ssouligné</u><p>" _
& "<body><b><FONT COLOR=RED>LE MOT est en rouge EST EN GRAS</FONT><p>" _
& "Ce " & "<i>mot</i> est en italique.</body><HTML>"
.Display
End With
End Sub
