Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

COMMENT ENVOYER PLUSIEURS A DES DESTINATAIRES DIFFERENTS?

2 réponses
Avatar
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

Omar.

2 réponses

Avatar
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.
Avatar
omar_2891