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:     [ Jetzt bewerten ]	Views:  20.542
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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 & _
  "..."