Seite 1 von 1

SendMail geht nicht

Verfasst: 04.02.2022 12:07
von marcelx
Hallo,

es gibt viele Beispiel für SendMail .
Warum funktioniert mein Code nicht.
Ist der Port richtig?
Gruß MarcelX

Code: Alles auswählen

  InitNetwork()
  
  If CreateMail(0, "XXXX@freenet.de", "Test")
    SetMailBody(0, "Test")
    
    AddMailRecipient(0, "XXXX@freenet.de", #PB_Mail_To)
  
    Result = SendMail(0, "mx.freenet.de", 993, 1, "XXXXX", "XXXX")
    
    Repeat
      Progress = MailProgress(0)
      Delay(10)
    Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
    
    If Progress = #PB_Mail_Finished
      MessageRequester("Info", "OK")
    Else
      MessageRequester("Info", "Fehler")
    EndIf
    
  EndIf

Re: SendMail geht nicht

Verfasst: 04.02.2022 17:49
von Bisonte
vermutlich weil du den IMAP Port benutzt. Du musst den SMTP Port nehmen. Meistens 465 oder 587.. allerdings ist auch meist die Hostadresse anders. Dazu musst du nochmal bei Freenet selbst nachschauen was dort bei SMTP bzw. Postausgang steht

Re: SendMail geht nicht

Verfasst: 04.02.2022 18:28
von marcelx
Danke Bisonte

Hier: https://kundenservice.freenet.de/artikel/1869
"mx.freenet.de" (SMTP und IMAP) 587 ist richtig - trotzdem geht es nicht

Re: SendMail geht nicht

Verfasst: 05.02.2022 15:16
von marcelx
mit web.de funktioniert auch nicht
https://hilfe.web.de/pop-imap/imap/imap ... daten.html
server: smpt.web.de
port: 587

Re: SendMail geht nicht

Verfasst: 05.02.2022 18:30
von mk-soft
Nachmal liegt es auch an der Sicherheitseinstellung vom Mail-Provider.

Die Server akzeptieren dann nur zertifizierte Mail Programme. Kann man aber Online in den Sicherheitseinstellung dieses ändern.
Ausserdem wird immer SSL verwendet

Code: Alles auswählen

Result = SendMail(0, "mx.freenet.de", 465 oder 587, #PB_Mail_Asynchronous | #PB_Mail_UseSSL, "XXXXX", "XXXX")

Re: SendMail geht nicht

Verfasst: 05.02.2022 19:05
von marcelx
#PB_Mail_Asynchronous und #PB_Mail_UseSSL gibt es nicht bei PB 5.31

Re: SendMail geht nicht

Verfasst: 16.02.2022 10:43
von marcelx
Nach eine lange Pause habe ich sendmail mit PB5.60 ausprobiert und so funktioniert.
Nun, ich verwende COMatePLUS.pbi Version 2.1 aus http://www.rsbasic.de/backups/ und mit PB5.6 bekomme ich die Meldung:
...
[09:31:20] [ERROR] COMatePLUS.pbi (Line: 1383)
[09:31:20] [ERROR] Procedure stack has been corrupted.
[09:38:14] Execution continued.
[09:38:14] [ERROR] COMatePLUS.pbi (Line: 1383)
[09:38:14] [ERROR] Procedure stack has been corrupted.

Die Excel-Datei wird korrekt erzeugt.
Wenn ich mein Programm als exe verwende, ist alles korrekt.

Eigenartig!