Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Private Sub Command1_Click()
On Error Resume Next
Dim strSubject As String
Dim strMessage As String
'Inhalt erstellen
strSubject = "test mail"
strMessage = "blablub"
MAPISession1.SignOn
MAPIMessages1.SessionID = Me.MAPISession1.SessionID
With MAPIMessages1
.Compose
.MsgSubject = strSubject
.MsgNoteText = strMessage
.RecipAddress = "name@provider.de"
.Send False
End With
MAPISession1.SignOff
End Sub
.AttachmentName = "blablub"
.AttachmentPathName = "c:\test.txt"