Envoi de mail via Outlook

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:

---

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 :

Citation:

---

Impossible de créer le composant ActiveX.

---

Quelqu'un aurait-il une idée ?

Merci d'avance

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

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

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.

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

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

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...

Merci Tomlev

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

Citation:

---

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

Tu utiliserais pas une API ?

oui l'aPI Shellexecute pourquoi ?

Citation:

---

Envoyé par mooneck

oui l'aPI Shellexecute pourquoi ?

---

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

Citation:

---

Envoyé par Aspic

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 ? :D

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

Code:

---

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:

---

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

---

Citation:

---

Envoyé par SaumonAgile

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

---

Mdr, tu lis dans mes pensée !

Et oui dans el mille 8-)

Voila la déclaration à faire pour ton API :

Code:

---

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 :D)

C'était bien ça
merci beaucoup