vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: HTML/Internet/Netzwerk · HTML/Email   |   VB-Versionen: VB.NET30.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 OtterBewertung:     [ Jetzt bewerten ]Views:  20.183 
www.tools4vb.deSystem:  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 & _
  "..."