SMTP outlook 365 mit TLS

[Armin]

Hallo,

wir benutzen die ASINET.DLL für Email-Versand. Das hat bisher auch immer alles geklappt. Jetzt haben wir auf die Microsoft-Wolke umgestellt. D.h. eine Art Online-Exchange - funktioniert ansonsten alles perfekt - nur nicht per Xbase++.

Code: Alles auswählen

oSmtp      := SMTPClient():new( "pod62622.outlook.com",587,"PAKKKER.DE", oLog, 2 )
IF oSmtp:connect("supp@xserv.com","OpaLucky123?")

else
   // hier Fehler 10049
   // "Info: Socket created successfully"
   // "Info: Successfully connected to pod62622.outlook.com"
   // "Info: Server response: 220 pod62622.outlook.com  Microsoft ESMTP MAIL Service ready at Wed, 28 Mar 2012 14:31:27 +0000
   // "Info: Server response: 250-pod62622.outlook.com Hello [212.202.155.238]
                 250-SIZE 36700160
                 250-PIPELINING
                 250-DSN
                 250-ENHANCEDSTATUSCODES
                 250-STARTTLS
                 250-AUTH
                 250-8BITMIME
                 250-BINARYMIME
                 250 CHUNKING
   // "Info: Sending: AUTH LOGIN"
   // "Info: Server response: 451 4.7.0 Timeout waiting for client input"
   // "Error: Unexpected response from server 451 4.7.0 Timeout"

endif

Es wird in anderen Programmen als SSL-Typ "TLS" angegeben. Brauche ich das? Kann ich das angeben?

DNS name or the IP address of the SMTP server : "pod62622.outlook.com"
Port : 587
Username: supp@xserv.com"
Password: "OpaLucky123?"

Die Daten stimmen nicht - sind nur Beispiele -

Grüße, Armin

[brandelh]

Hi,

ich meine man kann kein TSL einschalten. GMX z.B. läßt auch keinen Versand ohne Anmeldung zu, die genügt aber.

Code: Alles auswählen

     for nVersuch := 1 to 2   // erster

         // zuerst versuche ich eine SMTP-Versand, wenn der Fehler auftaucht,
         // das das letzte POP zu lange vorbei ist, wird einmal POP3 aufgerufen.
         IF oSmtp:connect()
            ? "   doMeldeFehler - connected - Versuch:",nVersuch
            IF oSmtp:send( oMail )
               ? "   doMeldeFehler - oMail wurde gesendet - Versuch:",nVersuch
               IsOK := .t.
            ELSE
               ? "   doMeldeFehler - oMail - FEHLER - Versuch:",nVersuch
            ENDIF
            oSmtp:disconnect()
            if IsOK
               exit
            endif
          ELSE
             ? "   Unable to connect to mail server"
          ENDIF

          ? "   oSmtp hat nicht funktioniert, nun versuchen wir einen POP3 - Versuch:",nVersuch

          oPop3 := POP3Client():new( cPop3Host , ;
                                     , ; // nPort
                                     cPop3User, ;
                                     cPop3KW  , ;
                                     oLog, ;
                                     2   ) // LOG-Level: 0 errors, 1 e+warnings, 2 = all
          if oPop3:connect()
             ? "   POP3: connected. Nachrichten: "+ntrim(oPop3:getNumberOfNewMessages())
             oPop3:disconnect()
          else
             ? "   POP3: fehlgeschlagen."
             exit
          endif
     next

Ich weiß aber nicht ob das bei dir als AUTH ausreicht und verschlüsselt wird dabei auch nichts.

[Armin]

Eine Möglichkeit wäre stunnel zu benutzen. Es handelt sich dabei um einen Proxy, der als Dienst installiert wird und anscheinend kann man dann die Email an Port 25 schicken, stunnel verschlüsselt diese und leitet sie an Port 587 weiter - wenn ich das richtig verstanden habe.

Aber wenn ich Emails nur an Mitglieder unserer Domain schicken will - will ich - , dann brauche ich anscheinend keinen relay-server. Man kann dann die Mail direkt an MX record in Office 365 senden. Dann ist anscheinend kein TLS und keine Autentifizierung nötig.
http://www.messageops.com/smtp-relay-with-office-365

Bis jetzt funktioniert es noch nicht, unser Scanner funktioniert aber auch nicht.

Gruß, Armin

[Armin]

Jetzt habe ich stunnel installiert.

Einstellungen:
[SMTP Outgoing]
protocol = smtp
accept = 25
connect = pod51008.outlook.com:587

Code: Alles auswählen

   oSmtp      := SMTPClient():new( "pod51008.outlook.com",25,"SSSSS.DE", oLog, 2 )

      IF oSmtp:connect()     //funktioniert jetzt auch ohne Anmeldung...
         IF oSmtp:send( oMail )    // Email wird nicht versendet - .f.

Jetzt geht das :send() schief. Hat damit bereits jemand Erfahrung?

[brandelh]

kannst du kein Protokoll anlegen ?
Wenn es einen Fehler gibt, müsste die Meldung den Grund enthalten.

[Armin]

Jetzt funktioniert es.

Ich habe das Programm stunnel installiert und gebe als SMTP-Host den MX-Record vom Outlook 365 an. stunnel erwartet dann die Email auf Port 25, verschlüsselt sie und leitet sie an Port 587 weiter.

Gruß, Armin