Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Open default emailer with attachment thru VB6's code
Message
 
À
27/08/2005 09:52:24
Information générale
Forum:
Visual Basic
Catégorie:
Autre
Divers
Thread ID:
01044542
Message ID:
01044714
Vues:
8
The attachments option varies according to your e-mail application. Not all accepts this argument. You better use another technique to send e-mail. The one I loved best is this free SMTP mailer: http://www.freevbcode.com/ShowCode.Asp?ID=109


>Dear VB Expert,
>
>I am trying to open default emailer with attachment thru VB6's code.. I tried below codes .. it works but I don't know how to insert attachment? .. could any body please give me tips?..
>
>
>Thanks & Regards
>Winanjaya
>
>
>Option Explicit
>
>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
>
>Const SW_SHOW = 5
>
>Private Sub OpenEmailer()
>If InStr(pubEmail, "@") > 0 Then
> ShellExecute Me.hwnd, "open", "mailto: winan888@cbn.net.id" & "?subject=" & App.Title & "&body=Hello World" , vbNullString, vbNullString, SW_SHOW
>End If
>End Sub
Éric Moreau, MCPD, Visual Developer - Visual Basic MVP
Conseiller Principal / Senior Consultant
Moer inc.
http://www.emoreau.com
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform