Envois de mail avec attachementRésolu

Question

Bonjour &#224; tous !
J'ai un probl&#232;me d'envois de mail en VB6. J'utilise Outlook et voici le code que j'ai &#233;crit :
Dim Olook As Outlook.Application
Dim Omail As Outlook.MailItem

Set Olook = New Outlook.Application
Set Omail = Olook.CreateItem(olMailItem)
            
With Omail
    .Subject = "Test d'attachement"
    .To = "Adresse mail"
    .Body = "Message"
    .Attachments.Add Fichier_&#224;_attacher
    .Display
                
End With
Set Omail = Nothing
Set Olook = Nothing

J'ai bien sur r&#233;f&#233;renc&#233; outlook dans mon projet (Projet - R&#233;f&#233;rences - coch&#233; Microsoft Outlook 9.0 Objects Lybrary).

Cela fonctionne bien mais le probl&#232;me est qu'il n'y a pas de bouton d'envoi du message sur la fen&#234;tre outlook qui s'ouvre ! J'ai m&#234;me essay&#233; d'ajout&#233; .Send dans le With Omail (en dessous de .Display) mais il n'envoit rien !

J'ai &#233;galement essay&#233; avec le Shell comme ceci :
ShellExecute(hwnd, "open", "mailto:aaa@bbb.com&Subject=Attachement&Body=Test d'attachement", vbNull, vbNull, 1)

Le probl&#232;me &#233;tant qu'on ne peut pas mettre de pi&#232;ce jointe dans le mailto.
Please I need help !
Merci !

 pseudoOM

pseudoOM · Accepted Answer

Ok le code fonctionne ! C'est simplement qu'il envoit les mails avec Outlook et pas Outlook express. J'ai donc configur&#233; un compte Outlook normal et &#231;a fonctionne !

 pseudoOM

Envois de mail avec attachement

1 réponse

Discussions similaires