COMMENT ENVOYER PLUSIEURS A DES DESTINATAIRES DIFFERENTS?
2 réponses
omar_2891
Bonjour,
J'ai un script qui me permet d'ouvrir Outlook avec un mail pret : le
corps du mail est compos=E9 de cellules delivrants un message =E0 UN seul
destinataire
J'aimerai modifier ce code pour pouvoir envoyer un mail diff=E9rent en
fonction du destinataire :
En gros, j'aimerai faire comprendre a VBA de mettre en destinataire la
cellule b5 si le corp comprend la cellule a5
Et ainsi de suite...
J'espere avoir =E9t=E9 clair, je vous attends pour plus de precisions et
bien sur pour trouver des solutions.
Merci d'avance!!
Voici mon code actuel :
Sub Envoi_Mail_ALERTE()
Dim Colonne As Long
Dim Ligne As Long
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
For Ligne =3D 5 To 61
For Colonne =3D 7 To 206
If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) >
0 Then
MailAd =3D Range("b" & Ligne)
Subj =3D Range("b2")
Msg =3D Msg & Range("a" & Ligne) & Cells(4, Colonne)
End If
Next Colonne
Next Ligne
URLto =3D "mailto:" & MailAd & "?subject=3D" & Subj & "&body=3D" & Msg
ActiveWorkbook.FollowHyperlink Address:=3DURLto
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Essaie :
Sub Envoi_Mail_ALERTE() Dim Colonne As Long Dim Ligne As Long Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String For Ligne = 5 To 61 For Colonne = 7 To 206 If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) > 0 Then MailAd = Range("b" & Ligne) & ";" & MailAd Subj = Range("b2") Msg = Msg & Range("a" & Ligne) & Cells(4, Colonne) End If Next Colonne Next Ligne URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
Cordialement. Daniel a écrit dans le message de news:
Bonjour,
J'ai un script qui me permet d'ouvrir Outlook avec un mail pret : le corps du mail est composé de cellules delivrants un message à UN seul destinataire J'aimerai modifier ce code pour pouvoir envoyer un mail différent en fonction du destinataire : En gros, j'aimerai faire comprendre a VBA de mettre en destinataire la cellule b5 si le corp comprend la cellule a5 Et ainsi de suite... J'espere avoir été clair, je vous attends pour plus de precisions et bien sur pour trouver des solutions.
Merci d'avance!!
Voici mon code actuel :
Sub Envoi_Mail_ALERTE() Dim Colonne As Long Dim Ligne As Long Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String For Ligne = 5 To 61 For Colonne = 7 To 206 If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) > 0 Then MailAd = Range("b" & Ligne) Subj = Range("b2") Msg = Msg & Range("a" & Ligne) & Cells(4, Colonne) End If Next Colonne Next Ligne URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
Omar.
Bonsoir.
Essaie :
Sub Envoi_Mail_ALERTE()
Dim Colonne As Long
Dim Ligne As Long
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
For Ligne = 5 To 61
For Colonne = 7 To 206
If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) > 0
Then
MailAd = Range("b" & Ligne) & ";" & MailAd
Subj = Range("b2")
Msg = Msg & Range("a" & Ligne) & Cells(4, Colonne)
End If
Next Colonne
Next Ligne
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
Cordialement.
Daniel
<omar_2891@hotmail.com> a écrit dans le message de news:
1145346127.243707.163570@v46g2000cwv.googlegroups.com...
Bonjour,
J'ai un script qui me permet d'ouvrir Outlook avec un mail pret : le
corps du mail est composé de cellules delivrants un message à UN seul
destinataire
J'aimerai modifier ce code pour pouvoir envoyer un mail différent en
fonction du destinataire :
En gros, j'aimerai faire comprendre a VBA de mettre en destinataire la
cellule b5 si le corp comprend la cellule a5
Et ainsi de suite...
J'espere avoir été clair, je vous attends pour plus de precisions et
bien sur pour trouver des solutions.
Merci d'avance!!
Voici mon code actuel :
Sub Envoi_Mail_ALERTE()
Dim Colonne As Long
Dim Ligne As Long
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
For Ligne = 5 To 61
For Colonne = 7 To 206
If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) >
0 Then
MailAd = Range("b" & Ligne)
Subj = Range("b2")
Msg = Msg & Range("a" & Ligne) & Cells(4, Colonne)
End If
Next Colonne
Next Ligne
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
Sub Envoi_Mail_ALERTE() Dim Colonne As Long Dim Ligne As Long Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String For Ligne = 5 To 61 For Colonne = 7 To 206 If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) > 0 Then MailAd = Range("b" & Ligne) & ";" & MailAd Subj = Range("b2") Msg = Msg & Range("a" & Ligne) & Cells(4, Colonne) End If Next Colonne Next Ligne URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
Cordialement. Daniel a écrit dans le message de news:
Bonjour,
J'ai un script qui me permet d'ouvrir Outlook avec un mail pret : le corps du mail est composé de cellules delivrants un message à UN seul destinataire J'aimerai modifier ce code pour pouvoir envoyer un mail différent en fonction du destinataire : En gros, j'aimerai faire comprendre a VBA de mettre en destinataire la cellule b5 si le corp comprend la cellule a5 Et ainsi de suite... J'espere avoir été clair, je vous attends pour plus de precisions et bien sur pour trouver des solutions.
Merci d'avance!!
Voici mon code actuel :
Sub Envoi_Mail_ALERTE() Dim Colonne As Long Dim Ligne As Long Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String For Ligne = 5 To 61 For Colonne = 7 To 206 If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) > 0 Then MailAd = Range("b" & Ligne) Subj = Range("b2") Msg = Msg & Range("a" & Ligne) & Cells(4, Colonne) End If Next Colonne Next Ligne URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub