Merci d'avance à ceux qui voudront bien me répondre.
Bonjour.
Ca dépend de ton client de messagerie.
Quel-est-il ?
Cordialement.
Daniel
"parisvillelumiere" <parisvillelumiere@discussions.microsoft.com> a écrit
dans le message de news:
93A3A612-BAD1-45A5-9C1D-8BC5B9EA6E9A@microsoft.com...
Bonjour, Je suis débutant sur le forum et je pose pour la 1ère fois une
question.
J'aimerais envoyer un mail identique à des adresses emails différentes
listées, ligne par ligne, dans une colonne d'une feuille de calcul Excel.
--
Avec plaisir
Philippe.R
"parisvillelumiere" <parisvillelumiere@discussions.microsoft.com> a écrit
dans le message de
news:93A3A612-BAD1-45A5-9C1D-8BC5B9EA6E9A@microsoft.com...
Bonjour, Je suis débutant sur le forum et je pose pour la 1ère fois une
question.
J’aimerais envoyer un mail identique à des adresses emails différentes
listées, ligne par ligne, dans une colonne d’une feuille de calcul Excel.
Merci d'avance à ceux qui voudront bien me répondre.
JB
Bonjour,
Liste des emails à partir de A1:
Sub envoiMail() Dim olapp As Outlook.Application Range("A1").Select Do While Not IsEmpty(ActiveCell) Dim msg As MailItem Set olapp = New Outlook.Application Set msg = olapp.CreateItem(olMailItem) msg.To = ActiveCell.Value msg.Subject = "Essai" msg.Body = "coucou" msg.Send ActiveCell.Offset(1, 0).Select Loop End Sub
Merci d'avance à ceux qui voudront bien me répondre.
Bonjour,
Liste des emails à partir de A1:
Sub envoiMail()
Dim olapp As Outlook.Application
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Value
msg.Subject = "Essai"
msg.Body = "coucou"
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Sub envoiMail() Dim olapp As Outlook.Application Range("A1").Select Do While Not IsEmpty(ActiveCell) Dim msg As MailItem Set olapp = New Outlook.Application Set msg = olapp.CreateItem(olMailItem) msg.To = ActiveCell.Value msg.Subject = "Essai" msg.Body = "coucou" msg.Send ActiveCell.Offset(1, 0).Select Loop End Sub