German Email automatisch senden ?

Paulsche

Well-Known Member
Licensed User
Longtime User
Hallo, wie kann ich aus meiner APP eine Email mit Dateianhang
automatisch senden lassen, ohne dass der Emailclient sich öffnet ?
 

Paulsche

Well-Known Member
Licensed User
Longtime User
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 ?
 

Paulsche

Well-Known Member
Licensed User
Longtime User
danke, ich schau mal nach einem Beispiel und werde es mit smtp versuchen.

* Funktioniert einwandfrei
 
Last edited:

Paulsche

Well-Known Member
Licensed User
Longtime User
Hallo, hier wie ich es eingebaut habe:

B4X:
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
 

peternmb

Well-Known Member
Licensed User
Longtime User
vielen Dank für dein Beispiel, hat mir geholfen und Zeit vile erspart :sign0098:.

Hast du vielleicht auch das Problem mit den Umlauten gelöst?
 

Paulsche

Well-Known Member
Licensed User
Longtime User
Meinst du Umlaute im PDF-Dokument ?

B4X:
   PDFWriter1.setFont2(PDFFonts.SUBTYPE, PDFFonts.TIMES_ROMAN, PDFFonts.WIN_ANSI_ENCODING)
 
Top