Discussion :

[daner06]

Bonjour,

Je cherche a envoyer un email avec une pièce jointe et par le client de messagerie par défaut de l'utilisateur, sahant que l'utilisateur peut très bien utiliser OE, Outlook, Thunderbird, IncrediMail ou autre...

C'est à dire que l'envoi du mail est pret à être envoyé par l'utilisateur. Il peut rajouter le corps de son message par son logiciel de messagerie.
Adobe Reader utilise ce principe : lorsqu'on clique sur le bouton "Envoyer par messagerie" de la barre d'outils, c'est exactement la même chose que je souhaite faire.

J'ai regardé la page developpez sur l'envoi et la réception d'email mais l'envoi du mail se fait en précisant les smtp et identification et l'email part de suite.

Avez-vous une info là dessus ?

Merci.

[daner06]

vraiment rien, pas une idée ?

[DeusXL]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

System.Diagnostics.Process.Start("mailto:monmail@examples.com");

Je sais que dans la syntaxe du mailto on peut préciser un sujet et un corps d'email alors cherche sur google ça te dira sûrement comment préciser une pièce jointe.

PS : Apparamment Mailto ne supporte pas les pièces jointes et je remarque que Adobe Reader utilise MAPI pour le faire...
Une recherche "MAPI" sur google t'en apprendra sûrement plus

[daner06]

J'ai rechercher avec MAPI, mais je ne trouve pas le moyen d'envoyer le mail par le client de messagerie par défaut.

J'ai rechercher aussi par des composants payant, mais apparament ils envoyent tous le mail par SMTP...

[DeusXL]

Je ne sais pas si ça peut aider mais dans NetXP est inclue une library MAPI (je suis tombé dessus par hasard) :
Librairies Included in NetXP.

[daner06]

Merci DeusXL, je ne comprends pas trop le fonctionnement (référence de cette classe), mais je fais des tests...

[daner06]

J'ai réussi avec VB 6 et l'Active X "Microsoft MAPI Controls 6.0" (MSMAPI32.OCX) avec ce code VB 6 (après avoir inséré MAPISession et MAPIMessage) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
MAPISession1.SignOn
    With MAPIMessages1
        .SessionID = MAPISession1.SessionID
        .Compose
        .RecipDisplayName = "daner06@yahoo.fr"  'Destinataire
        .MsgSubject = "Un petit bonjour"        'Objet
        .MsgNoteText = "Salut."                 'Texte
 
        .AttachmentPathName = "C:\Installer.log"
        .AttachmentName = "La pièce jointe"
 
        .Send True
    End With
    MAPISession1.SignOff

Lorsque j'essaye de mettre cette Active X dans les références de mon projet VB.NET, j'ai le message d'erreur suivant :

Une référence à 'C:\Documents....\MSMAPI32.OCX' n'a pas pu être ajoutée. Assurez-vous que le fichier est accessible et qu'il s'agit d'un assembly valide ou d'un composant COM.

Je ne comprends pas le message d'erreur, c'est un Active X comme les autres, non ?

Bon, je me suis retourné vers CDO mais là je ne trouve pas la méthode Compose comme je l'avais avec MAPI Controls 6.0.

Avez-vous une idée ?

Merci.

[daner06]

J'ai trouvé !

En fait j'ai mis la dll par référence et non par la barre d'outils.

Je me suis inspiré aussi de un article sur code project Importing ActiveX Controls (2ème solutions sans utiliser aximp).

Dont voici le code C# :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
MAPISession objSession = new MAPISession();
MAPIMessages objMsg = new MAPIMessages();
objSession.SignOn();
objMsg.SessionID = objSession.SessionID;
objMsg.Compose();
objMsg.MsgSubject = "MAPI TEST";
objMsg.MsgNoteText = "The message body";
objMsg.RecipAddress = "mercy_gp@dell.com";
objMsg.ResolveName();
objMsg.Send(null);
objSession.SignOff();

...que j'ai traduit en VB.NET :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        Me.AxMAPISession1.SignOn()
        With Me.AxMAPIMessages1
            .SessionID = Me.AxMAPISession1.SessionID
            .Compose()
            .RecipDisplayName = "accueil@rapidgest.fr" ' A
            .MsgSubject = "Test" ' Sujet
            .MsgNoteText = "coucou" ' Contenu du message
 
            .AttachmentPathName = "C:\toto.txt"
            .AttachmentName = "Pièce jointe"
 
            .Send(True)
        End With
        Me.AxMAPISession1.SignOff()