Insérer des "retours à la ligne" dans une variable "string"Résolu

Question

Bonjour !!

Je souhaite envoyer un mail par la fonction suivante :

ShellExecute Me.hwnd, "Open", "[mailto:?bcc mailto:?bcc]=" & dest & "&Subject=" & sujet & "&body=" & message, vbNullString, vbNullString, vbNormalFocus

Bien entendu, tout marche bien, toutes les variables sont bien déclarées, et Outlook s'ouvre bien avec les infos rentrées là où il faut !!

Mon problème se situe dans la variable string qui se nomme 'message'.

si je determine :

message = "bonjour" & chr(10) & (chr(10) & "bla bla bla"

les retours à la ligne n'apparaissent pas dans le 'body', et donc, tout s'écrit à la suite.
Meme en remplaçant 'chr(10)' par 'vblf' ou par 'vbNewLine', le retour à la ligne ne se fait pas !!

Auriez-vous une aide à m'apporter !!

Merci encore !!

PCPT · Accepted Answer

testé, ceci marche en TXT mais pas HTML :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As 
Long

Private Sub Command1_Click()
    Const CR As String = "%0D" '13
    Const LF As String = "%0A" '10
    
    Dim dest$, sujet$, message$
    dest = "toto@wanadoo.fr"
    sujet = "test 
multiligne"
    message = "bonjour" & CR & LF & "bla bla 
bla"
    
    ShellExecute Me.hwnd, "Open", "mailto:" & dest & "?&Subject=" & sujet & "&body=" & message, vbNullString, vbNullString, vbNormalFocus

    Unload Me
End Sub

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PCPT · Answer

salut,

çà ne fonctionnera SUE si ton mail (modèle) est en TEXT ou HTML (un des 2, je ne sais plus)

dans tous les cas çà sous-entend que ton utilisateur a outlook ou un autre client mail compatible, ce qui évidemment n'est pas toujours le cas

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

nagstef · Answer

Désolé, mais que ce soit en text ou htlm, cela ne marche toujours pas !!

Au niveau du soft, il n'est pas prévu d'être diffusé, il est à usage perso, donc, pas de souci pour Outlook Express ..

Merci de m'aider encore !!

Stef

nagstef · Answer

Merci INFINIMENT :)

Insérer des "retours à la ligne" dans une variable "string"

4 réponses

Votre réponse

Discussions similaires