Huhu
kann mir jemand helfen bei einem email script?
Wollte fragen ob es geht, das das script eine datei von meinem computer alle 5 minuten an eine email sendet.
und das script soll immer gestartet werden wenn der pc angemacht wird
hoffe ihr könnt mir helfen
Greetz
Texos aka. Dennis
Bräuchte email hilfe
-
- [ offen ]
-
Texos -
10. Juni 2009 um 22:49 -
Geschlossen -
Erledigt
-
-
- Offizieller Beitrag
Hi,
ja das geht. Email mit z.B. _INetSmtpMail und startup mit
Spoiler anzeigen
[autoit]#include<Date.au3>
[/autoit] [autoit][/autoit] [autoit]
_RunOnStartUp()
MsgBox(64, 'Willkommen', 'Heute ist der ' & _NowDate() & @CRLF & @CRLF & @UserName, 10)Func _RunOnStartUp($sName = @ScriptName)
[/autoit]
If @Compiled Then
RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $sName, "REG_SZ", @ScriptFullPath)
Else
RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $sName, "REG_SZ", 'cmd /k "' & @ScriptFullPath & '"')
EndIf
EndFunc ;==>_RunOnStartUpMega
-
Danke Xeno =)
könntest du mir vll. helfen mit der Datei versenden?
Kann das noch nicht so mit dem _INetSmtpMail , werde es mir aber bald anschauen
Mein email http ist mail.web.de
-
Habe dies hier aus einem anderen Forum gefunden
[autoit];##################################
[/autoit][autoit][/autoit][autoit]
; 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 = "your@Email.Address.com" ; address from where the mail should come
$ToAddress = "your@Email.Address.com" ; 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 you want to attach- leave blank if not needed
$CcAddress = "CCadress1@test.com" ; address for cc - leave blank if not needed
$BccAddress = "BCCadress1@test.com" ; 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;##################################
[/autoit][autoit][/autoit][autoit][/autoit]
; 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(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
funzt perfekt, nur der haken ist wie sende ich eine datei und keine nachricht? -
Hallo Texos
Huhu
kann mir jemand helfen bei einem email script?
Wollte fragen ob es geht, das das script eine datei von meinem computer alle 5 minuten an eine email sendet.
und das script soll immer gestartet werden wenn der pc angemacht wird
hoffe ihr könnt mir helfen
Greetz
Texos aka. Denniskannst du uns (mir) erklären für was dieser (Un)Sinn soll, ausser SPAMen
mfg(Auto)Bert
-
Hat sich ja bis jetzt alles erledigt,ich weiß nurnicht wie ich ne datei abschicke.
Den Dateipfad muss man ja in die $s_Attach-Files eingeben oder? Habe ich auch schonmal gemacht nur geht es nicht.. -
Wie AutoBert schon sagt,
was willst du denn alle 5 Minuten verschicken?
Das scheint ziemlich viel zu sein.Vieleicht Werbung oder was?