Ich habe es jetzt so weit hinbekommen, dass eine Mail mit Anhang erstellt wird
und nur noch "Senden" im Client gedrückt werden muss, kann man das senden irgendwie
automatisieren ?
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
B4X:
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
B4X:
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
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.