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