Standard EMail-Programm öffnen Um das im System registrierten Standard-EMail-Programm zu aktivieren, können Sie nachfolgende Prozedur verwenden. Sie können der Prozedur wahlweise ...
Autor:   Dieter Otter	Bewertung:	Views:  30.999
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Um das im System registrierten Standard-EMail-Programm zu aktivieren, können Sie nachfolgende Prozedur verwenden. Sie können der Prozedur wahlweise die Empfängeradresse und/oder den Betreff übergeben.

' Zunächst die benötigten API-Deklarationen
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

' Die nachfolgende Prozedur startet das Standard-EMail
' Programm, öffnet das Fenster für "Neue Nachrichten"
' und trägt ggf. die Empfängeradresse, den Betreff und 
' den Nachrichtentext ein.
' 
' 
' Anmerkung: Dieser Tipp wurde von Helmut Müller um den
'            Parameter "Text" erweitert.
' 
' Weitere Mailparameter wie zum Beispiel cc oder bcc sind denkbar,
' sind hier jedoch nicht implementiert.
' (Näheres siehe Dokument "SelfHTML 8.0", mailto: - Parameter)
Public Sub StartEMail(ByVal hWnd As Long, _
  Optional ByVal Empfänger As String = "", _
  Optional ByVal Betreff As String = "", _
  Optional ByVal Text As String)
 
  ' hWnd: Fenster-Handle eines Formulars 
  '       Ihrer Anwendung
  ' Empfänger: EMail-Adresse des Empfängers (opt.)
  ' Betreff: EMail-Betreff (optional)
  ' Text: EMail-Text (Optional)
 
  ' Hier werden die Mail-Parameter gespeichert
  Mailparameter = ""
 
  ' Wurde ein Betreff angegeben?
  If Betreff <> "" Then
    AddMailParam Mailparameter, "subject=" & Betreff
  End If
 
  ' Wurde ein Text angegeben?
  If Text <> "" Then
    AddMailParam Mailparameter, "body=" & Text
  End If
 
  Screen.MousePointer = 11
  Call ShellExecute(hWnd, "Open", "mailto:" & _
    Empfänger & Mailparameter, "", "", 1)
  Screen.MousePointer = 0
End Sub
 
Private Sub AddMailParam(ByRef r_AllParams As String, _
  ByVal p_Param As String)
 
  If r_AllParams = "" Then
    r_AllParams = "?" & p_Param
  Else
    r_AllParams = r_AllParams & "&" & p_Param
  End If
End Sub

Beispiel:

StartEMail Me.hWnd, "tipps@vbarchiv.de", _
  "Neue Tipps", "Hier ein Tipp für das vb@rchiv..."

Tipp: sevMail ActiveX mit ZIP-Funktionalität

Mails senden, abrufen und decodieren - ganz easy
Das SMTP Control sendet, das POP3 Control empfängt und der Mail-Parser decodiert empfangene Mails im Handumdrehen - natürlich unter Berücksichtigung von Multi-Part MIME Nachrichten, Anlagen u.v.m. Auf Wunsch zippt die Komponente Dateianlagen, um die Mail zu klein wie möglich zu halten. Auch werden SMTP-AUTH Server unterstütz, bei denen der Versand von Nachrichten nur mit korrekter Authentifizierung erfolgt.

Weiter Infos im Downloadbereich...
 

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.