Discussion :

[mooneck]

Bonjour

Je développe une petite application en visual basic 2005.
J'essaie d'envoyer un email via Outlook
J'utilise ce bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Sub SendEmailtoContacts(ByVal AdresseMail As String)
    Dim subjectEmail As String = "Sujetdumail"
    Dim bodyEmail As String = "Corpsdumessage"
    CreateEmailItem(subjectEmail, AdresseMail, bodyEmail)
End Sub
 
Private Sub CreateEmailItem(ByVal subjectEmail As String, _
    ByVal toEmail As String, ByVal bodyEmail As String)
    Dim Outlook As Microsoft.Office.Interop.Outlook.Application
 
    Outlook = New Microsoft.Office.Interop.Outlook.Application
    Dim eMail As Microsoft.Office.Interop.Outlook.MailItem = _
            Outlook.CreateItem(Outlook.OlItemType.olMailItem)
    With eMail
        .Subject = subjectEmail
        .To = toEmail
        .Body = bodyEmail
        .Importance = Outlook.OlImportance.olImportanceLow
        .Send()
    End With
 
End Sub

J'obtiens le message d'erreur suivant :

Impossible de créer le composant ActiveX.

Quelqu'un aurait-il une idée ?

Merci d'avance

[emap]

Bonjour

A priori tu utilise un composant ActiveX pour ton automation OUtlook (pas trop conseillé en .net). Il faut necessairement que tu utilises Outlook? parce que les fonctions de mails sont incluses dans le framework 2

[mooneck]

Bonjour emap

En fait je découvre visualbasic2005.
Je ne souhaite pas forcement utiliser un composant activeX.
Je voulais simplement utiliser outlook pour envoyer un email.
Quelle l'autre facon de procéder?

Deuxiemement, je ne souhaite pas forcement utiliser outlook. Si il y a un moyen de créer un email en récuperant l'appli de messagerie par défault je suis preneur.

En plus je me suis aperçu en installant mon appli sur un autre poste qui utilise office2003 (moi j'ai 2007) que l'install était impossible car il ne trouvait pas l'assembly office outlook 12 !!.
Comment peut-on utiliser une référence sans bloquer sur les versions ?

Merci d'avance

[emap]

Bonjour
regarde du coté de l'espace de noms System.Net.Mail (assembly System dans system.dll). Tu devrais deja trouver ton bonheur.
Le pb c'est que c'est pas de l'automation, donc aucune traces dans Outlook. Par contre si tu as un serveur de messagerie Excchange, la y a mmoyen de faire des trucs pas mal, du coté de outlook je connais pas.

[Aspic]

http://faqvbnet.developpez.com/?page=netw#netw_sendmail

[mooneck]

Merci Aspic

Mais je préferais une solution ou il ne faut saisir de serveur smtp.
Car je souhaite pouvoir diffuser mon appli autour de moi sans pour autant la configurer avec mon smtp (loggin et pwd).
Merci quand meme

Peut-on utiliser les api windows ou faut-il utiliser outlook.
En fait je voudrais avoir la meme action que lorsqu'on clique dans internet explorer sur un email : cela ouvre la messagerie par défault et crée un nouveau mail.

MErci

[tomlev]

pour utiliser le client mail par défaut, il suffit d'exécuter cette URL avec ShellExecute:
mailto:destinataire@domaine.com?subject=le_sujet&body=le_corps_du_message

Par contre ca n'enverra pas le mail automatiquement, il faudra que l'utilisateur clique sur envoyer...

[mooneck]

Merci Tomlev

C'est ce que je voulais. Le probleme est que j'ai un message d'erreur lorsque j'utilise Shellexecute :

Un appel à la fonction PInvoke 'Traducteur MonAppli!Appli.Module::ShellExecute' a déséquilibré la pile. Cela peut se produire, car la signature PInvoke managée ne correspond pas à la signature cible non managée. Vérifiez que la convention d'appel et les paramètres de la signature PInvoke correspondent à la signature non managée cible.

Quelqu'un sait-il ce que veut dire ce message car je ne le comprends pas du tout !
Merci d'avance

[Aspic]

Tu utiliserais pas une API ?

[mooneck]

oui l'aPI Shellexecute pourquoi ?

[Aspic]

oui l'aPI Shellexecute pourquoi ?

Donne moi la déclaration de ton API, je parie qu'il y a une erreur dedans

[SaumonAgile]

Donne moi la déclaration de ton API, je parie qu'il y a une erreur dedans

Je parie sur du Long <-> Integer, tu suis ?

[mooneck]

voici la déclaration de l'API que j'utilise :

Code :

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

1
2
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 Const SW_NORMAL As Long = 1

et voici l'appel

Code :

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

CodeRet = ShellExecute(CLng(My.Forms.Form1.Handle), CStr("open"), CStr("mailto:" & MailTo), CStr(""), CStr(""), SW_NORMAL)

[Aspic]

Je parie sur du Long <-> Integer, tu suis ?

Mdr, tu lis dans mes pensée !

Et oui dans el mille

Voila la déclaration à faire pour ton API :

Code :

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

1
2
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal HWND As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
    Private Const SW_NORMAL As Integer= 1

Il faut remplacer les Long par des Integer car en VB6 un Long était un entier 32 Bits et en VB.NET c'est un entier 64 bits donc ===> la pile est déséquilibrée (j'espère que j'ai pas dit de betises )

[mooneck]

C'était bien ça
merci beaucoup