Envoi d'un mail par Visual Basic

[robfinck]

Bonjour

je cherche le moyen d'ouvrir un nouveau mail (par outlook express) en faisant un simple clic sur un bouton ou un label, comme la fonction mailto en html.
c'est à dire qu'on clique sur le controle (bouton ou label) et une fenetre de nouveau mail s'affiche avec déjà le nom du destinataire (comme ce qu'on voit beaucoup dans les fenetres A propos de).

ça parait simple mais je ne trouve pas le moyen de le faire.
merci d'avance !

[Kikof]

Salut,

Il y a cet exemple :

Option Explicit

   Private Sub Command1_Click()
    Dim objSession As Object
    Dim objMessage As Object
    Dim objRecipient As Object

    'Create the Session Object
    Set objSession = CreateObject("mapi.session")

    'Logon using the session object
    'Specify a valid profile name if you want to
    'Avoid the logon dialog box
    objSession.Logon profileName:="MS Exchange Settings"

    'Add a new message object to the OutBox
    Set objMessage = objSession.Outbox.Messages.Add

    'Set the properties of the message object
    objMessage.subject = "This is a test."
    objMessage.Text = "This is the message text."

    'Add a recipient object to the objMessage.Recipients collection
    Set objRecipient = objMessage.Recipients.Add

    'Set the properties of the recipient object
    objRecipient.Name = "John Doe" '<---Replace this with a valid
                    'display name or e-mail alias
    'Type can be ActMsgTo, mapiTo, or CdoTo for different CDO versions;
    'they all have a constant value of 1.
    objRecipient.Type = mapiTo
    objRecipient.Resolve

    'Send the message
    objMessage.Send showDialog:=False
    MsgBox "Message sent successfully!"

    'Logoff using the session object
    objSession.Logoff
   End Sub

Qui provient de là : http://support.microsoft.com/default.aspx?...&NoWebContent=1

Il faut que la librairie CDO soit installée.
Si tu veux que la fenêtre s'affiche, il faudra peut être trafiquer quelqes détails ça et là (style showDialog:=True). A voir...

[Alf]

J'utilise cette solution:

'Déclarations.
Private Const SW_SHOWNORMAL = 1

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


'Evenement.
Private Sub lblTonLabel_Click() 'Pour envoyer un mail quant on clic sur ce label.
ShellExecute Me.hwnd, "open", "mailto:nom@provider.com", vbNullString, vbNull, SW_SHOWNORMAL

End Sub

C'est plutôt simple

[robfinck]

merci pour vos réponses ça marche super

je débute un peu en vb, la solution d'Alf fonctionne directement, carp our la premiere j'ai pas trouvé la librairie CDO
merci encore !