Tutorial e-Mail und SMS Alarm

[nore112]

Danke an "Feuerandy" und "Backdraft007".

Habe beide Vorschläge ausprobiert und alle zwei Funktionieren!

Gruß
nore112

[DonnerGott]

das ganze geht auch ohne blat usw.

--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
---------------------*.vbs datei----------------------





Set ws = CreateObject("WScript.Shell")

Dim FS, DS, File, Pfad, Anhang, ENachricht, NachRicht
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2

Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2

' SEND MAIL
Pfad = "D:\emailalarm\test\"

if Pfad = "" then
AuS
else
'nix
end if

Set objMessage = CreateObject("CDO.Message")

objMessage.Subject = "AlarmFax - Am " & date & " um " & time
objMessage.From = """AlarmFax"" "
objMessage.To = " objMessage.TextBody = "AlarmFax - Am " & date & " um " & time & " Uhr"

'Dateien
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FolderExists (Pfad)=True Then
'msgbox "Ordner ist da!",vbinformation,"Ordner da!"
Set DS = FS.GetFolder(Pfad)
for Each File in DS.Files
Anhang = File.Name
objMessage.AddAttachment Pfad & Anhang
next
Set DS = Nothing
Set FS = Nothing
else
msgbox "Ordner ist nicht da!",vbinformation,"Ordner nicht da!"
set FS = nothing
end if

'Konfiguration SMTP Server

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.gmx.de"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "BENUTZERNAME"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORT"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

objMessage.Send

Set objMessage = Nothing

AuS

Private Sub AuS
WScript.Quit
End Sub

[nore112]

Hallo,

ich hätte nochmals eine Frage. Ich benutze für den Versand von den Emails als Provider meine "Vodafone MobileMail" Adresse.

Was habt ihr für eine Erfahrung mit euerem Provider und wie ist es mit der Zeitverzögerung der Mail's? Bei "web.de" ist es oft so, das diese erst etliche Minuten später gesendet werden?

Danke schon mal für die Antworten.

Gruß
nore112

[Beatzler]

Hey,

ich habe mir zuzätzlich zu meiner Haupt GMX Adresse eine weitere E-Mail Adresse für den Alarm Versand eingerichtet. ( Kannst pro Acc. mehrere Adressen einrichten glaube 3 oder 5 oder so ... alles kostenlos ! ) Kannst dir dann sogar ne schöne Adresse ausdenken und benutzen !

Bin sehr zufrieden mit GMX, lief bisher immer Top !


MFG Beatzler

[Moulder]

Musste damals auch feststellen dass die Mails bei Web.de teilweise 5 minuten dauern bis sie übermittelt werden.

Bin wieder zurück zu gmx gewechselt dort sind die Mails innerhalb von 10-15 sek da.

[Thors1204]

Habe auch jetzt das Problem, dass das blat-Programm einwandfrei funktioniert, wenn ich die Datei "alarm" manuell starte (per Doppelklick). Die Mail wird dann einwandfrei verschickt.

Wenn ich jedoch die Datei im das Aktionsfeld starte, dann flackert kurz das schwarze Fenster auf (also Datei wird auch gestartet), aber es verschwindet sofort wieder und es findet auch kein Mailversand statt. Es wird auch kein log-file im Ordner erstellt. Irgendwas funktioniert nicht.
Der Eintrag im Aktionsfeld es Empfängers sieht so aus:
c:\emailalarm\alarm.bat "%1" "%2" "%3" "%4"

Welche Funktion haben eigentlich die Angaben "%1" bis "%4"...? Brauch ich die alle?

Hier mal meine Datei:

echo Am %date% um %time:~0,8% Melderausloesung Schleife %* > c:\emailalarm\mailinhalt.txt
c:\emailalarm\blat.exe "c:\emailalarm\mailinhalt.txt" -to MAILADRESSE -server mail.web.de -u USER -pw PASSWORT -timestamp -log versandlog.txt -subject "%date% um %time:~0,8% Melderausloesung Schleife %*"
del c:\emailalarm\mailinhalt.txt
del c:\emailalarm\subject.txt
end

Das Versandlog sieht dann so aus. Dies funktioniert aber NUR, wenn ich die alarm.bat manuell per Doppelklick starte. Über FMS32 wird kein Log erstellt.

2009.12.26 16:44:33 (Sat)------------Start of Session-----------------
Blat v2.6.2 w/GSS encryption (build : Feb 25 2007 12:06:19)
2009.12.26 16:44:36 (Sat): Sending c:\emailalarm\mailinhalt.txt to MEINE MAILADRESSE
2009.12.26 16:44:36 (Sat): Subject: 26.12.2009 um 16:44:33 Alarm auf die Schleife
2009.12.26 16:44:36 (Sat): Login name is MEINE MAILADRESSE
2009.12.26 16:44:36 (Sat)-------------End of Session------------------


Danke und Gruß,
Thorsten