pb pour envoyer des mails via Outlook express

Question

pour en voyer un mail j'utilise ce code :

Public Sub SendMail(ByVal hwnd As Long, Optional Address As String, _
    Optional Subject As String, Optional Body As String, _
    Optional CC As String, Optional BCC As String)

    Dim strCommand As String
    
    'Construction du message
    'Sujet du message
    If Len(Subject) Then strCommand = "?Subject=" & Subject
    'Corps du message
    If Len(Body) Then strCommand = strCommand & "&Body=" & Body
    'Copie du message (adresse email attendue)
    If Len(CC) Then strCommand = strCommand & "&CC=" & CC
    'Copie cachée du message
    If Len(BCC) Then strCommand = strCommand & "&BCC=" & BCC
    
    'Ajout de l'adresse email à la ligne de commande
    strCommand = "mailto:" & Address & strCommand

    'Execution de la commande via l'API
    Call ShellExecute(hwnd, "open", strCommand, _
        vbNullString, vbNullString, SW_SHOWNORMAL)

End Sub

en faite ca se resume a utiliser  ShellExecute...ca va pas trop dure.

la ou je rencontre un pb, c'est une fois que outlook express ouvert...il n'y aque deux lignes d'afficher..le reste du messagen'existe plus...il ne reconnait pas aussi la constante vbCrLf...

bref ca foire...c'eatit a mon sens le moyen le plus de simple
ducoup...pourquoi j'ai mon mesage qui est troncé
aidez_moi...ca devient urgent????

cs_claude42 · Answer

est-ce que tu pourrais aussi configurer l'adresse email de l'expéditeur avec ce genre de fonction?

Merci
 :-p  Claude
 :big)

Pb pour envoyer des mails via Outlook express

1 réponse

Discussions similaires