E-mail senden UDF

[amnesi]

Hier eine E-mail senden UDF xP hab ich ma irgendwo gefunden....
DIE UDF IST NICHT VON MIR!!!!!!!!!!!
Ich habe die verschiedenen Parameter in deutsch beschrieben so das es eig. jeder verstehen müsste xD
naja hier is sie

 Spoiler

PHP Code:

; #FUNCTION# ====================================================================================================================
; Name...........: _Mailsend
; Beschreibung ...: Versendet eine E-mail
; Syntax.........: _Mailsend($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "")
; Parameter ....: $s_SmtpServer        = Der Mailserver.                               Für www.web.de ist der Server smtp.web.De
;                  $s_FromName          = Name des Absenders                            Z.b. Manfred
;                  $s_FromAddress       = E-mail Adresse des Absenders.                 Z.b. hey123@web.de
;                  $s_ToAddress         = E-mail Adresse des Empfängers.                Z.b. blub321@web.de
;                  $s_Subject           = Betreff der E-mail                            Z.b. Test
;                  $as_Body             = Der Text der gesendet werden soll             Z.b. Hallo, das ist ein Test ;D
;                  $s_AttachFiles       = Einfach auslassen xD                          SO : ""
;                  $s_CcAddress         = Einfach auslassen xD                          SO : ""
;                  $s_BccAddress        = Einfach auslassen xD                          SO : ""
;                  $s_Username          = Nochmal E-mail Adresse des Empfängers.        Z.b. blub321@web.de
;                  $s_Password          = Dein E-mail Passwort des Empfängers           Z.b. Blub64
;
; Autor ........: Unknow
; ===============================================================================================================================






Func _Mailsend($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "")
    $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Cc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $ex = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
                SetError(1)
                return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
;Update settings
    $objEmail.Configuration.Fields.Update
; Sent the Message
    $objEmail.Send 
    if @error then
        SetError(2)
        return $oMyRet[1]
    EndIf
EndFunc;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description,3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc;==>MyErrFunc 


[PenGuin :O]

_InetSmtpMailCom ist nur eine Erweiterung zur bereits vorhandenen _InetSmtpMail Funktion...

[amnesi]

asooo xD
dachte nur es könnte für einige hier nützlich sein xD

[PenGuin :O]

Wo hab ich geschrieben, dass es für keinen nützlich ist? o.O

[omer36]

wollte das ma testen mit email senden...aber bei mir hatt das bisher nie geklappt... bekomm immer fehlermeldungen..
bei der inetsmtp wirds nicht gesendet wegen fehlercode 50 -> iwas mit dem $body..

bei der zb bekomm ich schon so fehler, algemein weil die udf fehlerhaft ist..

 Spoiler

WARNING: $x: possibly used before declaration.
$S_Files2Attach[$x]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
WARNING: $oMyRet: possibly used before declaration.
return $oMyRet[1]
~~~~~~~~~~~~~~~~~~~~~~~~~^
WARNING: $oMyError: possibly used before declaration.
$HexNumber = Hex($oMyError.number,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
ERROR: $x: undeclared global variable.
$S_Files2Attach[$x]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
ERROR: _PathFull(): undefined function.
$S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])

hmm..

@pingu, kannste mir ma nen bsp script per pn schicken? will ma schen, woran es liegt...