vb@rchiv · Tipps & Tricks · Standard EMail-Programm öffnen (.NET)

Rubrik: HTML/Internet/Netzwerk · HTML/Email | VB-Versionen: VB.NET

30.10.06

Standard EMail-Programm öffnen (.NET) Dieser Tipp verrät, wie man unter .NET das Standard-Mailprogramm startet, den Dialog "neue Nachricht" aufruft und diesem die Empfängeradresse, den Betreff und den Nachrichtentext übergibt.
Autor: Dieter Otter	Bewertung:	Views: 20.241
www.tools4vb.de	System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Dieser Tipp verrät, wie man unter .NET das Standard-Mailprogramm startet, den Dialog "neue Nachricht" aufruft und diesem die Empfängeradresse, den Betreff und den Nachrichtentext übergibt.

Public Class Form1
 
  ' Standard-Mailclient starten und neue Nachricht erstellen
  Private Sub NeueNachricht(ByVal sRecipient As String, _
    Optional ByVal sSubject As String = "", _
    Optional ByVal sBody As String = "")
 
    Dim sParam As String
 
    ' Betreff
    If sSubject.Length > 0 Then AddMailParam(sParam, "subject=" & sSubject)
 
    ' Nachrichtentext
    If sBody.Length > 0 Then AddMailParam(sParam, "body=" & _
      sBody.Replace(Chr(10), "%0d").Replace(Chr(13), "%0a"))
 
    ' Fenster "Neue Nachricht" öffnen
    Process.Start("mailto: " & sRecipient & sParam)
 
  End Sub
 
  ' Hilfsfunktion: EMail-Parameter zusammenstellen
  Private Sub AddMailParam(ByRef sAllParam As String, ByVal sParam As String)
    If sAllParam = String.Empty Then
      sAllParam = "?" & sParam
    Else
      sAllParam &= "&" & sParam
    End If
  End Sub
 
End Class

Aufrufbeispiel:

' Neue Nachricht an info@tools4vb.de
' Betreff: Anfrage
'
' Nachrichtentext: 
' Sehr geehrter Herr Otter,
'
' ich interessiere mich für Ihre sevMail-Entwicklerkomponente.
' ...
 
NeueNachricht "info@tools4vb.de", "Anfrage", _
  "Sehr geehrter Herr Otter," & vbCrLf & vbCrLf & _
  "ich interessiere mich für Ihre sevMail-Entwicklerkomponente." & vbCrLf & _
  "..."