[AutoIT] Potrzebna pomoc

MrKris7100 · 7 Stycznia 2013

Witam, Wiem że był taki temat milion razy ale żadna porada z nich nie pomaga

Potrzebuję wysłać maila za pomocą autoita wypróbowałem milion kodów oraz mam taki co niby innym działa:

#include <INet.au3>
#include <SMTP.au3>
#include <File.au3>
 Global $ClearLogAfterEmail, $GmailUser, $GmailPass, $ToEmail ;Deklaracja zmiennych

   $GmailUser = "[email protected]"    ;Adres e-mail nadawcy(jednoczesnie uzytkownik)
   $GmailPass = "TUTAJ MOJE HASŁO"				  ;Hasło do adresu e-mail nadawcy
   $ToEmail = "[email protected]"	  ;Adres e-mail odbiorcy
   $StmpServer = "smtp.poczta.onet.pl"   ;Adres serwera stmp nadawcy
   $Temat = "Teest autoit";Temat Maila
   $Tresc = "abc acb acbabcbacb" ;Tresc Maila
   $Nadawca = "AutoIT" ;to zostanie wyswietlone w polu nadawca (Dowolny tekst)
   $Zalacznik = "Test.txt" ;Sciezka do zalącznika
   _INetSmtpMailCom($StmpServer, $Nadawca, $GmailUser, $ToEmail, $GmailUser, $GmailPass, $Temat, $Tresc, $Zalacznik);mozna dorzucic jeszcze jeden argument z załącznikiem
Exit

No i wywala błąd:

### COM Error ! Number: 80020009 ScriptLine: 92 Description:Nie powiodlo sie polaczenie warstwy transportu z serwerem.

Wszystko jest oki proszę o pomoc ;/

jackraymund · 7 Stycznia 2013

http://www.autoitscr...400#entry977476

+ wrzuc swoją funkcje jak możesz + nagłówek jej ;D

ponieważ na necie znalazłem funkcje o tej nazwie, lecz flagi są troszke inaczej niż u ciebie

($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)

MrKris7100 · 7 Stycznia 2013

Jaką funkcje ??? Wogóle w tym linku jet inny błąd...

jackraymund · 7 Stycznia 2013

no jaką funkcje? tą z którą masz problem, która ci nie działa...

MrKris7100 · 7 Stycznia 2013

CHce tylko wysłać maila i NAPISAŁEM CI CZARNO NA BIAŁYM KOD ORAZ BŁĄD KTÓRY WYSKAKUJE PRZY PRÓBIE URUCHOMIENIA!

Co Ty se jaja robisz?

Phoenix_PL · 7 Stycznia 2013

@up a teraz przeczytaj wypowiedź Raymunda jeszcze raz, głośno i wyraźnie oraz ze zrozumieniem.

KOD FUNKCJI a nie LOG BŁĘDÓW

Co mi po kodzie który wywołuje funkcję, jak nie posiadam samej funkcji -,-?

MrKris7100 · 7 Stycznia 2013

AAAAa chcecie kod funkcji z include'a prosze bardzo Skoro jesteście tacy tępi i jej nie znacie ...:

;
;##################################
; Include
;##################################
#Include<file.au3>
;##################################
; Variables
;##################################
$SmtpServer = "MailServer"			  ; address for the smtp-server to use - REQUIRED
$FromName = "Name"					  ; name from who the email was sent
$FromAddress = "[email protected]" ; address from where the mail should come
$ToAddress = "[email protected]"   ; destination address of the email - REQUIRED
$Subject = "Userinfo"				   ; subject from the email - can be anything you want it to be
$Body = ""							  ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = ""					   ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$CcAddress = "[email protected]"	   ; address for cc - leave blank if not needed
$BccAddress = "[email protected]"	 ; address for bcc - leave blank if not needed
$Importance = "Normal"				  ; Send message priority: "High", "Normal", "Low"
$Username = "******"				    ; username for the account used from where the mail gets sent - REQUIRED
$Password = "********"				  ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25						    ; port used for sending the mail
$ssl = 0							    ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465						  ; GMAIL port used for sending the mail
;~ $ssl=1							   ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS
;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$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 : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
	    If FileExists($S_Files2Attach[$x]) Then
		    ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
		    $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, 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

Phoenix_PL · 7 Stycznia 2013

O nie, raportuję boś mnie wkurzył.

Jak mogliśmy mieć tego UDFa skoro takich może być setki w necie, a nie ma go dołączonego do AutoITa?

oh rly -,-

MrKris7100 · 7 Stycznia 2013

Standardowy include smtp do INet potrzebny ...

kwojt · 7 Stycznia 2013

@MrKris7100 Nie ma po co obrażać innych, którzy zresztą próbują ci pomóc, nie chodzi o cały plik, tylko funkcję do której odnosi się program. Na prawdę, nie widzę jaki problem stwarza wklejenie kilku linijek kodu, szczególnie, że nikt nie musi ci pomagać.

jackraymund · 7 Stycznia 2013

CHce tylko wysłać maila i NAPISAŁEM CI CZARNO NA BIAŁYM KOD ORAZ BŁĄD KTÓRY WYSKAKUJE PRZY PRÓBIE URUCHOMIENIA!

Co Ty se jaja robisz?

Co ty jaja sobie robisz? czytać nie umiesz?

lecz flagi są troszke inaczej niż u ciebie

to teraz ci powiem jaki jest błąd pomimo iż powinienem cię w tym momencie olać, za to że nie czytasz tego co ludzie do ciebie piszą

_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)

_INetSmtpMailCom($StmpServer, $Nadawca, $GmailUser, $ToEmail,

te 4 flagi są dobrze, dalej pojebałeś, bo wpisałeś w flage tematu i zawartości, emaila swoje passy, w miejsce zalcznika temat,w miejsce cc i bcc tresc i zalacznik, i nie uzupelniles, ważnych rzeczy jak login i hasło

uzupelnij poprawnie i bedzie dzialac

MrKris7100 · 7 Stycznia 2013

Nie do końca skumałem mógłbym dostać cały gotowy kod?

PS. Przepraszam poniosło mnie

@PS

A tak w ogóle co to te zmienne BccAdress; CCAdress; AtchFiles ??

jackraymund · 8 Stycznia 2013

bcc, cc to inaczej kopia do innych

atchfiles ciezka do zalacznika

MrKris7100 · 8 Stycznia 2013

A cały kod moge w końcu dostać?

//nie, ale coś innego owszem + zachęcam cię do przeczytania regulamin

16. Zabronione jest zakładanie tematu z prośbą o napisanie gotowego skryptu. Wyjątkiem jest prośba o przykładowy kod, pomoc przy nim

dostałeś dużą pomoc z objaśnieniem, więc powinieneś sam to zrobić, a jak nie, to zapraszam do tutka maćka/phoenixa

RobeM · 8 Stycznia 2013

powiem tak, kod nawet mimo tego ze jest dobry nie ma możliwości na dzień dzisiejszy działać z serwerem, inne porty na serwerach i inny sposób logowania, brak potwierdzeń, tym bardziej że to przerobiony kod logowania się do GMAIL

ale tak to jest jak ktos na pałę weźmie byle co z netu, nie znając nawet PODSTAWOWYCH portów serwerów, sposobów logowania itp rzeczy związanych z serwerem pocztowym

znajdź inny UDF

MrKris7100 · 8 Stycznia 2013

Dobra kurw...de wszystkim za chęci zrobiłem se plik w batch który wysyła maila.. Do zamknięcia

//ale masz problemy, miałeś dokładnie wytłumaczone co masz zrobić i gdzie jest błąd :|

Zaloguj się

👋 Witaj na MPCForum!

[AutoIT] Potrzebna pomoc

Rekomendowane odpowiedzi

MrKris7100

MrKris7100

jackraymund

jackraymund

MrKris7100

MrKris7100

jackraymund

jackraymund

MrKris7100

MrKris7100

Phoenix_PL

Phoenix_PL

MrKris7100

MrKris7100

Phoenix_PL

Phoenix_PL

MrKris7100

MrKris7100

kwojt

kwojt

jackraymund

jackraymund

MrKris7100

MrKris7100

jackraymund

jackraymund

MrKris7100

MrKris7100

RobeM

RobeM

MrKris7100

MrKris7100

Zarchiwizowany