texte dans mail outlook

patrick · 9 Juillet 2004

bonjour à tout le forum,

J'ai écrit une macro pour envoyer automatiquement un mail par Excel via la messagerie Outlook.
je réussis bien à nommer les destinataires, personnes en copie, en copie cachée, le sujet du mail et même le texte à envoyer.

Mais comment faire pour aérer mon texte, c'est à dire revenir à la ligne, sauter des lignes,...

Comment faire également pour insérer un champ texte contenu dans une variable au beau milieu du texte prédéfini ?

merci au forum

michel · 9 Juillet 2004

bonjour Patrick

je te proposes deux solutions

avec Outlook

Sub EvoiMailAvecSautDeLignes()
'testé avec XP
'adapté de : http://support.microsoft.com/default.aspx?kbid=286430
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Dim Test As String

Test = "le forum XLD" 'variable pour essais
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

'utiliser pour les sauts de lignes
'utiliser &nbsp pour insérer un espace de caractere

strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & " premiere reponse :" & Range("C1") & ""
strHTML = strHTML & " deuxieme reponse :&nbsp&nbsp&nbsp" & Range("D1") & ""
strHTML = strHTML & " troisieme reponse :" & Test & ""
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""

With iMsg
Set .Configuration = iConf
.To = "michelxld@yahoo.fr"
'.From = "youralias@yourdomain.com"
.Subject = "reponses au questionnaire"
.HTMLBody = strHTML
.Send
End With

End Sub

avec OutlookExpress

Sub envoiMailOutlookExpress()
Dim Adresse As String
Dim Sujet As String, Texte As String
Dim Test As String
Test = "essai d'insertion de variable"
Adresse = "forum@XLD.fr"
Sujet = "Test d'envoi "
Texte = "Bonjour ," & vbCrLf & vbCrLf _
& "Ceci est un essai de mail multilignes et un " & Test & vbCrLf & vbCrLf _
& "Signé " & Application.UserName
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" _
& Adresse & "?subject=" & Sujet & "&Body=" & Texte
End Sub

bon apres midi
MichelXld

bonpat · 11 Septembre 2004

Salut,

J'ai utilisé ce code pour envoyé un message avec un corps de message sous Outlook Express.
Cela marche parfaitement à part que OE s'ouvre me prépare le mail avec la bonne @, le bon sujet, le bon corps mais ne l'envoie pas directement, il attend que j'appuie sur la touche "Send" ou "envoyer" ...
Comment faire pour ne passer par la boîte de dialogue d'envoi ?

Merci

Effectuez une recherche sur Excel Downloads...

texte dans mail outlook

patrick

Guest

michel

Guest

bonpat

Guest

Discussions similaires

Nous accordons de l'importance à votre vie privée