Créer un e macro qui envoie par mail les cellules sélectionnées
p
Je veux créer une macro qui envoie par mail les contenus d'une cellule.
Par exemple A1 c’est la cellule sélectionnée et B1 contient l'adresse mail.
merci par avance
Bonjour et
pour envoyer un message en automatique avec le contenu de A1 et l'adresse mail en B1:
Sub CreateHTMLMail()
'Creates a new e-mail item and modifies its properties
Dim objMail As Outlook.MailItem
'Create e-mail item
Set objMail = Outlook.Application.CreateItem(olMailItem)
With objMail
'Set body format to HTML
.BodyFormat = olFormatHTML
.To = Range("b1")
.HTMLBody = "<HTML><BODY>Bonjour,< /br>< /br>Voici le contenu de la cellule A1: " & Range("a1") & "< /br>< /br>Cordialement< /br>Un testeur</BODY></HTML>"
.Display
' .Send
End With
End Subenlever le ' devant .Send pour envoyer le message
la même chose avec une boucle sur les 10 premières lignes:
Sub CreateHTMLMail()
'Creates a new e-mail item and modifies its properties
Dim objMail As Outlook.MailItem
'Create e-mail item
For i = 1 To 10
Set objMail = Outlook.Application.CreateItem(olMailItem)
With objMail
'Set body format to HTML
.BodyFormat = olFormatHTML
.To = Range("b" & i)
.HTMLBody = "<HTML><BODY>Bonjour,< /br>< /br>Voici le contenu de la cellule A1: " & Range("a" & i) & "< /br>< /br>Cordialement< /br>Un testeur</BODY></HTML>"
.Display
' .Send
End With
Next i
End Sub