danke, ich schau mal nach einem Beispiel und werde es mit smtp versuchen.
* Funktioniert einwandfrei
Sub mail_init 'Emaileinstellungen initialisieren
SMTP.Initialize(SMTP_server, SMTP_port, mail_sendadress,mail_passwort, "SMTP")
SMTP.UseSSL = mail_SSL 'Gmail requires SSL
End Sub
Sub SendMail(dateiname As String) 'Emailversand der PDF-Datei
SMTP.To.Add(mail_empfadress)
SMTP.Subject = "HB-Verbrauchszaehler PDF-Bericht"
SMTP.Body = "PDF-Bericht aus HB-Verbrauchszaehler"
SMTP.AddAttachment(pdfpfad, dateiname)
SMTP.Send
End Sub
Sub SMTP_MessageSent(Success As Boolean)
Log(Success)
If Success Then
ToastMessageShow("Email wurde versendet !", True)
Else
ToastMessageShow("Fehler ! Email nicht versendet !", True)
Log(LastException.Message)
End If
End Sub
SMTP.Subject = "HB-Verbrauchszaehler PDF-Bericht"
Nein, im subject bzw. body der Mail.