Envoi Mail depuis un userform et retour chariot dans le texte du mail...
6 réponses
Domi
Bonjour à tous,
Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte
font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = ""
Subj = "totototo : " & Range("a65536").End(xlUp)
Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & "
blablabla2" & Chr(10) & "blablabla3"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform sur le
click du bouton valider par exemple. mais en remplaçant la référence à la
cellule par le contenue d'un textbox du userform.
2°) Dans le texte du message je voudrais faire un retour chariot... j'ai mis
un Chr(10) mais cela ne marche pas... Comment faire ?
Merci pour votre aide
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
MichDenis
Bonjour Domi,
As-tu essayé ceci : En adaptant le nom du formulaire et tu textbox...
'----------------------------- Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & UserForm1.TextBox1.Text Msg = "blablabla1" & vbCrLf Msg = Msg & UserForm1.TextBox1.Text & vbCrLf Msg = Msg & "blablabla2" & vbCrLf & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub '-----------------------------
Salutations!
"Domi" a écrit dans le message de news: Bonjour à tous, Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & Range("a65536").End(xlUp) Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & " blablabla2" & Chr(10) & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform sur le click du bouton valider par exemple. mais en remplaçant la référence à la cellule par le contenue d'un textbox du userform. 2°) Dans le texte du message je voudrais faire un retour chariot... j'ai mis un Chr(10) mais cela ne marche pas... Comment faire ? Merci pour votre aide
Domi
Bonjour Domi,
As-tu essayé ceci : En adaptant le nom du formulaire et tu textbox...
'-----------------------------
Sub EnvoiUnMailOE6()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = ""
Subj = "totototo : " & UserForm1.TextBox1.Text
Msg = "blablabla1" & vbCrLf
Msg = Msg & UserForm1.TextBox1.Text & vbCrLf
Msg = Msg & "blablabla2" & vbCrLf & "blablabla3"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
'-----------------------------
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news: OoKgdRvKFHA.3332@TK2MSFTNGP15.phx.gbl...
Bonjour à tous,
Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte
font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = ""
Subj = "totototo : " & Range("a65536").End(xlUp)
Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & "
blablabla2" & Chr(10) & "blablabla3"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform sur le
click du bouton valider par exemple. mais en remplaçant la référence à la
cellule par le contenue d'un textbox du userform.
2°) Dans le texte du message je voudrais faire un retour chariot... j'ai mis
un Chr(10) mais cela ne marche pas... Comment faire ?
Merci pour votre aide
As-tu essayé ceci : En adaptant le nom du formulaire et tu textbox...
'----------------------------- Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & UserForm1.TextBox1.Text Msg = "blablabla1" & vbCrLf Msg = Msg & UserForm1.TextBox1.Text & vbCrLf Msg = Msg & "blablabla2" & vbCrLf & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub '-----------------------------
Salutations!
"Domi" a écrit dans le message de news: Bonjour à tous, Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & Range("a65536").End(xlUp) Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & " blablabla2" & Chr(10) & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform sur le click du bouton valider par exemple. mais en remplaçant la référence à la cellule par le contenue d'un textbox du userform. 2°) Dans le texte du message je voudrais faire un retour chariot... j'ai mis un Chr(10) mais cela ne marche pas... Comment faire ? Merci pour votre aide
Domi
Domi
Ca marche bien pour l'envoi mais pas pour le retour chariot, j'obtiens dans le message : blablabla"le textbox"blablabla2blablabla3 Merci Domi
"MichDenis" a écrit dans le message de news:
Bonjour Domi,
As-tu essayé ceci : En adaptant le nom du formulaire et tu textbox...
'----------------------------- Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & UserForm1.TextBox1.Text Msg = "blablabla1" & vbCrLf Msg = Msg & UserForm1.TextBox1.Text & vbCrLf Msg = Msg & "blablabla2" & vbCrLf & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub '-----------------------------
Salutations!
"Domi" a écrit dans le message de news:
Bonjour à tous, Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & Range("a65536").End(xlUp) Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & " blablabla2" & Chr(10) & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform sur le
click du bouton valider par exemple. mais en remplaçant la référence à la cellule par le contenue d'un textbox du userform. 2°) Dans le texte du message je voudrais faire un retour chariot... j'ai mis
un Chr(10) mais cela ne marche pas... Comment faire ? Merci pour votre aide
Domi
Ca marche bien pour l'envoi mais pas pour le retour chariot, j'obtiens dans
le message : blablabla"le textbox"blablabla2blablabla3
Merci
Domi
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:u34fsB0KFHA.2648@TK2MSFTNGP14.phx.gbl...
Bonjour Domi,
As-tu essayé ceci : En adaptant le nom du formulaire et tu textbox...
'-----------------------------
Sub EnvoiUnMailOE6()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = ""
Subj = "totototo : " & UserForm1.TextBox1.Text
Msg = "blablabla1" & vbCrLf
Msg = Msg & UserForm1.TextBox1.Text & vbCrLf
Msg = Msg & "blablabla2" & vbCrLf & "blablabla3"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
'-----------------------------
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news:
OoKgdRvKFHA.3332@TK2MSFTNGP15.phx.gbl...
Bonjour à tous,
Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte
font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = ""
Subj = "totototo : " & Range("a65536").End(xlUp)
Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & "
blablabla2" & Chr(10) & "blablabla3"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform sur
le
click du bouton valider par exemple. mais en remplaçant la référence à la
cellule par le contenue d'un textbox du userform.
2°) Dans le texte du message je voudrais faire un retour chariot... j'ai
mis
un Chr(10) mais cela ne marche pas... Comment faire ?
Merci pour votre aide
Ca marche bien pour l'envoi mais pas pour le retour chariot, j'obtiens dans le message : blablabla"le textbox"blablabla2blablabla3 Merci Domi
"MichDenis" a écrit dans le message de news:
Bonjour Domi,
As-tu essayé ceci : En adaptant le nom du formulaire et tu textbox...
'----------------------------- Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & UserForm1.TextBox1.Text Msg = "blablabla1" & vbCrLf Msg = Msg & UserForm1.TextBox1.Text & vbCrLf Msg = Msg & "blablabla2" & vbCrLf & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub '-----------------------------
Salutations!
"Domi" a écrit dans le message de news:
Bonjour à tous, Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & Range("a65536").End(xlUp) Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & " blablabla2" & Chr(10) & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform sur le
click du bouton valider par exemple. mais en remplaçant la référence à la cellule par le contenue d'un textbox du userform. 2°) Dans le texte du message je voudrais faire un retour chariot... j'ai mis
un Chr(10) mais cela ne marche pas... Comment faire ? Merci pour votre aide
Domi
MichDenis
Bonjour Domi,
essaie en remplaçant VBCRLf Par Chr(10) & Chr(13)
Comme dans cet exemple : '------------------- Message = "Bonjour" & Chr(10) & Chr(13) & _ "Bonne journée"
MsgBox Message '-------------------
Salutations!
"Domi" a écrit dans le message de news: Ca marche bien pour l'envoi mais pas pour le retour chariot, j'obtiens dans le message : blablabla"le textbox"blablabla2blablabla3 Merci Domi
"MichDenis" a écrit dans le message de news:
Bonjour Domi,
As-tu essayé ceci : En adaptant le nom du formulaire et tu textbox...
'----------------------------- Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & UserForm1.TextBox1.Text Msg = "blablabla1" & vbCrLf Msg = Msg & UserForm1.TextBox1.Text & vbCrLf Msg = Msg & "blablabla2" & vbCrLf & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub '-----------------------------
Salutations!
"Domi" a écrit dans le message de news:
Bonjour à tous, Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & Range("a65536").End(xlUp) Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & " blablabla2" & Chr(10) & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform sur le
click du bouton valider par exemple. mais en remplaçant la référence à la cellule par le contenue d'un textbox du userform. 2°) Dans le texte du message je voudrais faire un retour chariot... j'ai mis
un Chr(10) mais cela ne marche pas... Comment faire ? Merci pour votre aide
Domi
Bonjour Domi,
essaie en remplaçant VBCRLf Par Chr(10) & Chr(13)
Comme dans cet exemple :
'-------------------
Message = "Bonjour" & Chr(10) & Chr(13) & _
"Bonne journée"
MsgBox Message
'-------------------
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news: u3Yu2g3KFHA.4056@TK2MSFTNGP14.phx.gbl...
Ca marche bien pour l'envoi mais pas pour le retour chariot, j'obtiens dans
le message : blablabla"le textbox"blablabla2blablabla3
Merci
Domi
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:u34fsB0KFHA.2648@TK2MSFTNGP14.phx.gbl...
Bonjour Domi,
As-tu essayé ceci : En adaptant le nom du formulaire et tu textbox...
'-----------------------------
Sub EnvoiUnMailOE6()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = ""
Subj = "totototo : " & UserForm1.TextBox1.Text
Msg = "blablabla1" & vbCrLf
Msg = Msg & UserForm1.TextBox1.Text & vbCrLf
Msg = Msg & "blablabla2" & vbCrLf & "blablabla3"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
'-----------------------------
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news:
OoKgdRvKFHA.3332@TK2MSFTNGP15.phx.gbl...
Bonjour à tous,
Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte
font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = ""
Subj = "totototo : " & Range("a65536").End(xlUp)
Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & "
blablabla2" & Chr(10) & "blablabla3"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform sur
le
click du bouton valider par exemple. mais en remplaçant la référence à la
cellule par le contenue d'un textbox du userform.
2°) Dans le texte du message je voudrais faire un retour chariot... j'ai
mis
un Chr(10) mais cela ne marche pas... Comment faire ?
Merci pour votre aide
Comme dans cet exemple : '------------------- Message = "Bonjour" & Chr(10) & Chr(13) & _ "Bonne journée"
MsgBox Message '-------------------
Salutations!
"Domi" a écrit dans le message de news: Ca marche bien pour l'envoi mais pas pour le retour chariot, j'obtiens dans le message : blablabla"le textbox"blablabla2blablabla3 Merci Domi
"MichDenis" a écrit dans le message de news:
Bonjour Domi,
As-tu essayé ceci : En adaptant le nom du formulaire et tu textbox...
'----------------------------- Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & UserForm1.TextBox1.Text Msg = "blablabla1" & vbCrLf Msg = Msg & UserForm1.TextBox1.Text & vbCrLf Msg = Msg & "blablabla2" & vbCrLf & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub '-----------------------------
Salutations!
"Domi" a écrit dans le message de news:
Bonjour à tous, Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & Range("a65536").End(xlUp) Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & " blablabla2" & Chr(10) & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform sur le
click du bouton valider par exemple. mais en remplaçant la référence à la cellule par le contenue d'un textbox du userform. 2°) Dans le texte du message je voudrais faire un retour chariot... j'ai mis
un Chr(10) mais cela ne marche pas... Comment faire ? Merci pour votre aide
Domi
Domi
Hélas la solution n'est pas encore là... ça reste toujours désespérément sur une seule ligne Merci Domi
"MichDenis" a écrit dans le message de news:%238$$
Bonjour Domi,
essaie en remplaçant VBCRLf Par Chr(10) & Chr(13)
Comme dans cet exemple : '------------------- Message = "Bonjour" & Chr(10) & Chr(13) & _ "Bonne journée"
MsgBox Message '-------------------
Salutations!
"Domi" a écrit dans le message de news:
Ca marche bien pour l'envoi mais pas pour le retour chariot, j'obtiens dans
le message : blablabla"le textbox"blablabla2blablabla3 Merci Domi
"MichDenis" a écrit dans le message de news:
Bonjour Domi,
As-tu essayé ceci : En adaptant le nom du formulaire et tu textbox...
'----------------------------- Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & UserForm1.TextBox1.Text Msg = "blablabla1" & vbCrLf Msg = Msg & UserForm1.TextBox1.Text & vbCrLf Msg = Msg & "blablabla2" & vbCrLf & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub '-----------------------------
Salutations!
"Domi" a écrit dans le message de news:
Bonjour à tous, Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & Range("a65536").End(xlUp) Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & " blablabla2" & Chr(10) & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform sur
le
click du bouton valider par exemple. mais en remplaçant la référence à la
cellule par le contenue d'un textbox du userform. 2°) Dans le texte du message je voudrais faire un retour chariot... j'ai mis
un Chr(10) mais cela ne marche pas... Comment faire ? Merci pour votre aide
Domi
Hélas la solution n'est pas encore là... ça reste toujours désespérément sur
une seule ligne
Merci
Domi
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:%238$$CW7KFHA.3788@tk2msftngp13.phx.gbl...
Bonjour Domi,
essaie en remplaçant VBCRLf Par Chr(10) & Chr(13)
Comme dans cet exemple :
'-------------------
Message = "Bonjour" & Chr(10) & Chr(13) & _
"Bonne journée"
MsgBox Message
'-------------------
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news:
u3Yu2g3KFHA.4056@TK2MSFTNGP14.phx.gbl...
Ca marche bien pour l'envoi mais pas pour le retour chariot, j'obtiens
dans
le message : blablabla"le textbox"blablabla2blablabla3
Merci
Domi
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:u34fsB0KFHA.2648@TK2MSFTNGP14.phx.gbl...
Bonjour Domi,
As-tu essayé ceci : En adaptant le nom du formulaire et tu textbox...
'-----------------------------
Sub EnvoiUnMailOE6()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = ""
Subj = "totototo : " & UserForm1.TextBox1.Text
Msg = "blablabla1" & vbCrLf
Msg = Msg & UserForm1.TextBox1.Text & vbCrLf
Msg = Msg & "blablabla2" & vbCrLf & "blablabla3"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
'-----------------------------
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news:
OoKgdRvKFHA.3332@TK2MSFTNGP15.phx.gbl...
Bonjour à tous,
Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte
font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = ""
Subj = "totototo : " & Range("a65536").End(xlUp)
Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & "
blablabla2" & Chr(10) & "blablabla3"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform
sur
le
click du bouton valider par exemple. mais en remplaçant la référence à
la
cellule par le contenue d'un textbox du userform.
2°) Dans le texte du message je voudrais faire un retour chariot... j'ai
mis
un Chr(10) mais cela ne marche pas... Comment faire ?
Merci pour votre aide
Hélas la solution n'est pas encore là... ça reste toujours désespérément sur une seule ligne Merci Domi
"MichDenis" a écrit dans le message de news:%238$$
Bonjour Domi,
essaie en remplaçant VBCRLf Par Chr(10) & Chr(13)
Comme dans cet exemple : '------------------- Message = "Bonjour" & Chr(10) & Chr(13) & _ "Bonne journée"
MsgBox Message '-------------------
Salutations!
"Domi" a écrit dans le message de news:
Ca marche bien pour l'envoi mais pas pour le retour chariot, j'obtiens dans
le message : blablabla"le textbox"blablabla2blablabla3 Merci Domi
"MichDenis" a écrit dans le message de news:
Bonjour Domi,
As-tu essayé ceci : En adaptant le nom du formulaire et tu textbox...
'----------------------------- Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & UserForm1.TextBox1.Text Msg = "blablabla1" & vbCrLf Msg = Msg & UserForm1.TextBox1.Text & vbCrLf Msg = Msg & "blablabla2" & vbCrLf & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub '-----------------------------
Salutations!
"Domi" a écrit dans le message de news:
Bonjour à tous, Cette macro me permet d'envoyer un Email (OE6) dont le sujet et le texte font référence au contenu d'une cellule.
Sub EnvoiUnMailOE6() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = "" Subj = "totototo : " & Range("a65536").End(xlUp) Msg = Msg & "blablabla1 " & Range("a65536").End(xlUp) & " blablabla2" & Chr(10) & "blablabla3" URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
1°) Comment faire en sorte d'exécuter la même chose depuis un useform sur
le
click du bouton valider par exemple. mais en remplaçant la référence à la
cellule par le contenue d'un textbox du userform. 2°) Dans le texte du message je voudrais faire un retour chariot... j'ai mis
un Chr(10) mais cela ne marche pas... Comment faire ? Merci pour votre aide
Domi
Jacques
Hélas la solution n'est pas encore là... ça reste toujours désespérément sur une seule ligne Merci Domi
L'affichage par MsgBox affiche t-il le message sur deux lignes ? Certains gestionnaires de mail ont l'habitude de reformater le texte reçu à leur convenance.
-- Cordialement,
Jacques.
Hélas la solution n'est pas encore là... ça reste toujours désespérément sur
une seule ligne
Merci
Domi
L'affichage par MsgBox affiche t-il le message sur deux lignes ?
Certains gestionnaires de mail ont l'habitude de reformater le texte
reçu à leur convenance.
Hélas la solution n'est pas encore là... ça reste toujours désespérément sur une seule ligne Merci Domi
L'affichage par MsgBox affiche t-il le message sur deux lignes ? Certains gestionnaires de mail ont l'habitude de reformater le texte reçu à leur convenance.
-- Cordialement,
Jacques.
Domi
Tout à fait, cela fonctionne très bien dans un message box, mais pas dans OE6. Merci Domi
"Jacques" a écrit dans le message de news:u%23IqHE$
Hélas la solution n'est pas encore là... ça reste toujours désespérément sur
une seule ligne Merci Domi
L'affichage par MsgBox affiche t-il le message sur deux lignes ? Certains gestionnaires de mail ont l'habitude de reformater le texte reçu à leur convenance.
-- Cordialement,
Jacques.
Tout à fait, cela fonctionne très bien dans un message box, mais pas dans
OE6.
Merci
Domi
"Jacques" <jacques.le-goc_ENLEVER@wanadoo.fr> a écrit dans le message de
news:u%23IqHE$KFHA.4032@TK2MSFTNGP14.phx.gbl...
Hélas la solution n'est pas encore là... ça reste toujours désespérément
sur
une seule ligne
Merci
Domi
L'affichage par MsgBox affiche t-il le message sur deux lignes ?
Certains gestionnaires de mail ont l'habitude de reformater le texte
reçu à leur convenance.
Tout à fait, cela fonctionne très bien dans un message box, mais pas dans OE6. Merci Domi
"Jacques" a écrit dans le message de news:u%23IqHE$
Hélas la solution n'est pas encore là... ça reste toujours désespérément sur
une seule ligne Merci Domi
L'affichage par MsgBox affiche t-il le message sur deux lignes ? Certains gestionnaires de mail ont l'habitude de reformater le texte reçu à leur convenance.