Envoi E-mail Plusieurs destinataires (excel+vba) [Résolu]

Question

Posez votre question Signaler

Envoi E-mail Plusieurs destinataires (excel+vba) [Résolu]

grosquick59

Messages postés: 50
Date d'inscription: vendredi 15 août 2008
Dernière intervention: 29 novembre 2010

- 25 nov. 2010 à 00:33 - Dernière réponse : grosquick59

Messages postés: 50
Date d'inscription: vendredi 15 août 2008
Dernière intervention: 29 novembre 2010

- 25 nov. 2010 à 23:07

Visual Basic 6 Posez votre question Signaler

Salut

je souhaite envoyer un mail type à plusieurs destinataires via Excel.
Les destinataires se trouvent dans une colonne E.
Dans la colonne F j'indique oui ou non. (oui = envoi mail)
Le problème est que j'ai un mail par destinataire ce qui est impossible à gérer. Je souhaiterai que toutes les adresses mail de la colonne E soient en destinataire dans un seul e-mail.

Voici mon code :

Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")

On Error GoTo cleanup

For Each cell In Columns("E").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "F").Value) = "oui" Then

Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Infos"
.Body = "Bonjour, xxxxxxxxxxxxxx"
.Display

End With
On Error GoTo 0
Set OutMail = Nothing
End If
Next cell

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub

J'espère que je suis assez clair ^^
Par avance, merci.

Afficher la suite

A voir également:

Votre réponse

Répondre au sujet

3 réponses

Signaler Commenter la réponse de c148270

c148270

Messages postés: 303
Date d'inscription: mercredi 12 janvier 2005
Dernière intervention: 3 octobre 2013

25 nov. 2010 à 02:09

0

Merci

Bonjour

Idée
Concatener les valeurs trouvées dans une variable en les séparant par un point-virgule puis construire le message avec .to= la variable

Bonne journée

Signaler Commenter la réponse de grosquick59

grosquick59

Messages postés: 50
Date d'inscription: vendredi 15 août 2008
Dernière intervention: 29 novembre 2010

25 nov. 2010 à 23:07

0

Merci

Merci. ça marche impec.

Votre réponse

Répondre au sujet

Posez votre question

rv83toulon · Accepted Answer · 2010-11-25T10:03:47+0100

Bonjour,
pour suivre l'idée de c148270 :

Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range, x As Integer
Dim mesdestinataires As String

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")

On Error GoTo cleanup


For Each cell In Columns("E").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "F").Value) "oui" Then mesdestinataires cell.Value & "; " & mesdestinataires
Next cell

x = Len(mesdestinataires) - 2
nbritem = Left(mesdestinataires, x)

Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = mesdestinataires
.Subject = "Infos"
.Body = "Bonjour, xxxxxxxxxxxxxx"
.Display
End With

On Error GoTo 0
Set OutMail = Nothing


cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True

Tien nous au courant, merci

@+

Envoi E-mail Plusieurs destinataires (excel+vba) [Résolu]

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !