LifeSux Posted February 15, 2012 Share Posted February 15, 2012 (edited) G maile mail göndermek istiyorum koddaki hata nerede ??? [code]#Include<file.au3> #include <INet.au3> #include <GUIConstants.au3> #include <array.au3> $SmtpServer = "smtp.gmail.com" $FromName = "deneme" $FromAddress = "xxxxxxxx.com" $ToAddress = "xxxxxxxx.com" $Subject = "deneme" $Body = "deneme" $AttachFiles = "" $CcAddress = "" $BccAddress = "" $Importance = "High" $Username = "wxxxxxxxxx" $Password = "xxxxxxxxxx" $IPPort=465 $ssl=1 [/code] bunları yazdıktan sonra bu ayarlara nasıl göndertiyoruz e postayı ?? Edited February 15, 2012 by LifeSux Quote Link to comment Share on other sites More sharing options...
Kral__ Posted February 15, 2012 Share Posted February 15, 2012 örnek çalışmaları kontrol et bununla ilgili çalışmalar var Quote Link to comment Share on other sites More sharing options...
LifeSux Posted February 15, 2012 Author Share Posted February 15, 2012 [quote name='Kral__' date='15 February 2012 - 13:53 ' timestamp='1329306798' post='1155233'] örnek çalışmaları kontrol et bununla ilgili çalışmalar var [/quote] Araştırdım ama bulamadım acaba link atabilir misiniz ? Quote Link to comment Share on other sites More sharing options...
Kral__ Posted February 15, 2012 Share Posted February 15, 2012 http://www.tnctr.com/topic/151762-facebookmynetmsnhotmailgmailyahoo-girith-icin/ adresinden ulaşabilirsin Quote Link to comment Share on other sites More sharing options...
LifeSux Posted February 15, 2012 Author Share Posted February 15, 2012 [quote name='Kral__' date='15 February 2012 - 15:52 ' timestamp='1329313933' post='1155291'] http://www.tnctr.com/topic/151762-facebookmynetmsnhotmailgmailyahoo-girith-icin/ adresinden ulaşabilirsin [/quote] Sanırım yanlış anladın ben e mail gönderici yapmak istiyorum e mail giriş değil. Quote Link to comment Share on other sites More sharing options...
blue_life Posted February 15, 2012 Share Posted February 15, 2012 (edited) @LifeSux Aşağıdaki örneği şimdi denedim ve çalışıyor. Kodların başlangıcına ufak bir açıklama ekledim... Ayrıca gmail ayarlarından pop3 desteğinin açılması gerekiyordu. Çok uzun zaman önce bakmıştım ve net hatırlamıyorum. Kolay gelsin... [codebox];################################## ; Include ;################################## #Include<file.au3> ; Ornek olarak ;gmail adrsin ; bluelife[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com olsun ;kullanıcı adın haliyle;bluelife ;maile giriş şifrende; tnctr olsun ;o zaman göndereceğin adreste deneme[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com olsun ;################################## ; Variables ;################################## Global $SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED Global $FromAddress = "bluelife[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com" ; address from where the mail should come Global $Username = "bluelife" ; username for the account used from where the mail gets sent - REQUIRED Global $Password = "tnctr" ; password for the account used from where the mail gets sent - REQUIRED ; -------------- Global $ToAddress = "deneme[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com" ; destination address of the email - REQUIRED Global $FromName = "Konu Test" ; name from who the email was sent Global $Subject = "Selam Dünyalı!" ; subject from the email - can be anything you want it to be Global $Body = "Test" ; the messagebody from the mail - can be left blank but then you get a blank mail Global $AttachFiles = "" ; the file you want to attach- leave blank if not needed Global $Importance = "Normal" ; Send message priority: "High", "Normal", "Low" ; -------------- ;~ $IPPort = 25 ; port used for sending the mail ;~ $ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS ;~ $CcAddress = "[email protected]" ; address for cc - leave blank if not needed ;~ $BccAddress = "[email protected]" ; address for bcc - leave blank if not needed Global $CcAddress = "" ; address for cc - leave blank if not needed Global $BccAddress = "" ; address for bcc - leave blank if not needed Global $IPPort=465 ; GMAIL port used for sending the mail Global $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS ;################################## ; Script ;################################## Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") Global $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc) EndIf ; ; The UDF Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0) Local $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.Bcc = $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 $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console If FileExists($S_Files2Attach[$x]) Then $objEmail.AddAttachment ($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) 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 If Number($IPPort) = 0 then $IPPort = 25 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;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 If $ssl Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True EndIf ;Update settings $objEmail.Configuration.Fields.Update ; Set Email Importance Switch $s_Importance Case "High" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail="" EndFunc ;==>_INetSmtpMailCom ; ; ; Com Error Handler Func MyErrFunc() $HexNumber = Hex($oMyError.number, $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[/codebox] Edit:Forum mail adreslerini engellemiş. Ilgili kısımları kendine göre düzenlersin... Edited February 15, 2012 by blue_life Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.