Huhu zusammen,
mein Problem zur Zeit ist das WEB nun alles auf SSL umgestellt hab und mein Mailversand nicht mehr funktioniert.
Ich hab mir dazu einiges Durchgelesen und rumprobiert leider ohne erfolg. Kann mir dabei jemand helfen?
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
Global $pc = @ComputerName
#include <_INetSmtpMailCom.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FileConstants.au3>
;##################################
; Variables
;##################################
$SmtpServer = "smtp.web.de"
$FromName = "Versand Detail.txt"
$FromAddress = "Absender@web.de"
$ToAddress = "Empfänger@Firma.de"
$Subject = "Detail.txt von " & " " & $pc
$Body = "Anlage bitte speichern unter: xxxxxxxxx" & " "
$AttachFiles = @ScriptDir & "\Detail" & $pc & ".txt"
$CcAddress = ""
$BccAddress = ""
$Importance = "Hight"
$Username = "Absender@web.de"
$Password = "Password"
$IPPort = 587
$ssl = 1
; Datei umbenennen
[/autoit][autoit][/autoit][autoit][/autoit][autoit]FileMove(@ScriptDir & "\Detail.txt" , @ScriptDir & "\Detail" & $pc & ".txt")
[/autoit][autoit][/autoit][autoit][/autoit][autoit]$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]If @error Then
exit
else
FileMove(@ScriptDir & "\Detail" & $pc & ".txt" , @ScriptDir & "\Detail" & $pc & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & ".txt")
EndIf
Ziel ist es wieder ein Datei namens Detail.txt zu versenden. Ich bin da etwas ratlos.
LG
Pre