Rubrik: HTML/Internet/Netzwerk · HTML/Email | VB-Versionen: VB.NET | 30.10.06 |
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 & _
"..."