Wysyłanie na ftp.

[Michu.]

Jak wysłać wartość zmiennej na serwer ftp?

 

np.

 

$zmienna1 = 123

Wysyłanie $zmienna1 na serwer [email protected]/zmienna1.txt

 

albo na maila

[Ballas]

_INetSmtpMail()

W helpie masz wszystko opisane. <_<

[Michu.]

A jak tej funkcji użyć? Chcę wysłać coś z maila wp.pl na gmail.com

[Gość Pan Szymek]

A jak tej funkcji użyć? Chcę wysłać coś z maila wp.pl na gmail.com

Ty najpierw o protokołach poczytaj.

[JacoH]

Wydaje mi się, że łatwiej by było zrobić ten program w Visual Basic albo spróbować przerobić z tego języka na AutoIT i masz

[Michu.]

vb nie ogarniam, dla mnie autoit jest bardziej przystępniejszy

[Ballas]

Może jednak lepiej skorzystać z biblioteki SMTP.au3

 

 

  #include-once
  #Include<file.au3>
  ; 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
  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

 

 

I użycie funkcji:

_INetSmtpMailCom("smtp.gmail.com", "Nazwa wysyłającego", "Adres wysyłającego", "Adres odbiorcy", "Temat", "Wiadomość", "Załącznik", "", "", "Normal", "Twój email (musi być na gmail.com no chyba ze znasz smtp i port", "hasło na konto email", 465, 1)

[Michu.]

Wyskoczył mi error 2 potem error 1.. nosz kurrrr

[czolopynyk11]

xxx