Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Lancer mails à partir d’adresses dans xl

Lancer mails à partir d’adresses dans xl

3 réponses
Avatar
gilles
Bonjour,
Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment
de Daniel J, j’ai pu écrire cette proc qui :
Envoit le mail aux personnes de la liste devant lesquelles je mets en X en
colonne A.
Sur la feuille j’ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour le
message.

Sub Tri_si_X_et_envoit() 'ça MARCHE
Dim Cal As Range, cell As Range, Ligne As Long

' effacer la liste des destinataires
Sheets("tri").Select
Range("A3:A200").Select
Selection.ClearContents
Sheets("liste globale").Select
Set Cal = Range("A1:A200")
For Each cell In Cal
If cell = "X" Then
cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0)
Ligne = Ligne + 1
End If
Next cell
Application.CutCopyMode = False

'envoie les mails aux destinataires
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim Shapes As String
Sheets("tri").Select
For Each Lescellules In Range("A1:A20")
If Lescellules.Value <> "" Then
'MsgBox "ça marche "
Dest = Lescellules.Value
Sujt = [E1].Value ' ça marche
'Msg = [E2].Value' ça marche
Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas

Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"

End If
Next
Sheets("liste globale").Select
End Sub

Ça marche mais j’aimerais remplacer E2 par une zône de texte (plus facile à
remplir)
Mais je reçois un message SUB ou FONCTION non définie
Ma syntaxte est-elle mauvaise ou ma nullité m’a-t-elle fait oublié kekchose ?
Par ailleurs, j’aimerais e faire une version pour sur une boite qui est sous
hotmail et non sur outlook
Comment formuler le chemin ?
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Merci à ceusses qui ont pitié des bricolos-vba comme moi !!!
A+
gilles

--
gilles72
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Daniel.j
Essaie avec cela

Msg = Worksheets("le nom de ta feuille").Shapes("Zone de texte
1").TextFrame.Characters.Text
MsgBox Msg
Daniel

--
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm


"gilles" a écrit dans le message de news:

Bonjour,
Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment
de Daniel J, j'ai pu écrire cette proc qui :
Envoit le mail aux personnes de la liste devant lesquelles je mets en X en
colonne A.
Sur la feuille j'ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour
le
message.

Sub Tri_si_X_et_envoit() 'ça MARCHE
Dim Cal As Range, cell As Range, Ligne As Long

' effacer la liste des destinataires
Sheets("tri").Select
Range("A3:A200").Select
Selection.ClearContents
Sheets("liste globale").Select
Set Cal = Range("A1:A200")
For Each cell In Cal
If cell = "X" Then
cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0)
Ligne = Ligne + 1
End If
Next cell
Application.CutCopyMode = False

'envoie les mails aux destinataires
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim Shapes As String
Sheets("tri").Select
For Each Lescellules In Range("A1:A20")
If Lescellules.Value <> "" Then
'MsgBox "ça marche "
Dest = Lescellules.Value
Sujt = [E1].Value ' ça marche
'Msg = [E2].Value' ça marche
Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas

Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"

End If
Next
Sheets("liste globale").Select
End Sub

Ça marche mais j'aimerais remplacer E2 par une zône de texte (plus facile
à
remplir)
Mais je reçois un message SUB ou FONCTION non définie
Ma syntaxte est-elle mauvaise ou ma nullité m'a-t-elle fait oublié
kekchose ?
Par ailleurs, j'aimerais e faire une version pour sur une boite qui est
sous
hotmail et non sur outlook
Comment formuler le chemin ?
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Merci à ceusses qui ont pitié des bricolos-vba comme moi !!!
A+
gilles

--
gilles72


Avatar
gilles
bonjour Daniel,
merci de ton aide
j'essaie ça
Sans vouloir abuser, le fait de passer par hotmail, ça te suggère kekchose?
à+ peut-être
et félicitations pour ton site
--
gilles72



Essaie avec cela

Msg = Worksheets("le nom de ta feuille").Shapes("Zone de texte
1").TextFrame.Characters.Text
MsgBox Msg
Daniel

--
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm


"gilles" a écrit dans le message de news:

Bonjour,
Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment
de Daniel J, j'ai pu écrire cette proc qui :
Envoit le mail aux personnes de la liste devant lesquelles je mets en X en
colonne A.
Sur la feuille j'ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour
le
message.

Sub Tri_si_X_et_envoit() 'ça MARCHE
Dim Cal As Range, cell As Range, Ligne As Long

' effacer la liste des destinataires
Sheets("tri").Select
Range("A3:A200").Select
Selection.ClearContents
Sheets("liste globale").Select
Set Cal = Range("A1:A200")
For Each cell In Cal
If cell = "X" Then
cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0)
Ligne = Ligne + 1
End If
Next cell
Application.CutCopyMode = False

'envoie les mails aux destinataires
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim Shapes As String
Sheets("tri").Select
For Each Lescellules In Range("A1:A20")
If Lescellules.Value <> "" Then
'MsgBox "ça marche "
Dest = Lescellules.Value
Sujt = [E1].Value ' ça marche
'Msg = [E2].Value' ça marche
Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas

Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"

End If
Next
Sheets("liste globale").Select
End Sub

Ça marche mais j'aimerais remplacer E2 par une zône de texte (plus facile
à
remplir)
Mais je reçois un message SUB ou FONCTION non définie
Ma syntaxte est-elle mauvaise ou ma nullité m'a-t-elle fait oublié
kekchose ?
Par ailleurs, j'aimerais e faire une version pour sur une boite qui est
sous
hotmail et non sur outlook
Comment formuler le chemin ?
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Merci à ceusses qui ont pitié des bricolos-vba comme moi !!!
A+
gilles

--
gilles72







Avatar
gilles
Daniel,
Apparemment ta syntaxe est bonne
Nickel
merci
--
gilles72



Essaie avec cela

Msg = Worksheets("le nom de ta feuille").Shapes("Zone de texte
1").TextFrame.Characters.Text
MsgBox Msg
Daniel

--
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm


"gilles" a écrit dans le message de news:

Bonjour,
Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment
de Daniel J, j'ai pu écrire cette proc qui :
Envoit le mail aux personnes de la liste devant lesquelles je mets en X en
colonne A.
Sur la feuille j'ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour
le
message.

Sub Tri_si_X_et_envoit() 'ça MARCHE
Dim Cal As Range, cell As Range, Ligne As Long

' effacer la liste des destinataires
Sheets("tri").Select
Range("A3:A200").Select
Selection.ClearContents
Sheets("liste globale").Select
Set Cal = Range("A1:A200")
For Each cell In Cal
If cell = "X" Then
cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0)
Ligne = Ligne + 1
End If
Next cell
Application.CutCopyMode = False

'envoie les mails aux destinataires
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim Shapes As String
Sheets("tri").Select
For Each Lescellules In Range("A1:A20")
If Lescellules.Value <> "" Then
'MsgBox "ça marche "
Dest = Lescellules.Value
Sujt = [E1].Value ' ça marche
'Msg = [E2].Value' ça marche
Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas

Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"

End If
Next
Sheets("liste globale").Select
End Sub

Ça marche mais j'aimerais remplacer E2 par une zône de texte (plus facile
à
remplir)
Mais je reçois un message SUB ou FONCTION non définie
Ma syntaxte est-elle mauvaise ou ma nullité m'a-t-elle fait oublié
kekchose ?
Par ailleurs, j'aimerais e faire une version pour sur une boite qui est
sous
hotmail et non sur outlook
Comment formuler le chemin ?
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Merci à ceusses qui ont pitié des bricolos-vba comme moi !!!
A+
gilles

--
gilles72