VBS Script zum Emailen

H

HackerXp

0
Die Vorlage hab ich schon aber ich werd daraus einfach nicht schlau
Bitte sagt mir wo ich den Empfänger den Text und den Absender eintragen muss
?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?(
______________________________________________________
Option Explicit
Dim ArgObj
Set ArgObj = WScript.Arguments
if ArgObj.Count <> 3 then
DisplayHelpMessage
WScript.Quit
end if

Dim target, subject, body, from
target = ArgObj.Item( 0)
subject = ArgObj.Item( 1)
body = ArgObj.Item( 2)
from = "IhreEmail@absender.de"

SendMail target, from, subject, body

function SendMail( strTo, strFrom, strSubject, strBody)

dim oMsg
set oMsg = CreateObject("CDO.Message")
oMsg.To = strTo
oMsg.From = strFrom
oMsg.Subject = strSubject
oMsg.TextBody = strBody
oMsg.Send

WScript.Echo "Mail von " & strFrom & " an " & strTo & " verschickt.."
set oMsg = Nothing

end function

sub DisplayHelpMessage()
WScript.Echo
WScript.Echo "Usage: sendmail To Subject Body"
WScript.Echo "... Subject und Body in doppelten Hochhaken"
end sub
__________________________________________________________________
 
Empfänger = target
Absender = from
Text = body
 
Option Explicit
Dim ArgObj
Set ArgObj = WScript.Arguments
if ArgObj.Count <> 3 then
DisplayHelpMessage
WScript.Quit
end if

Dim target, subject, body, from
target = ArgObj.Item( 0)
subject = ArgObj.Item( 1)
body = ArgObj.Item( 2)
from = "JohannesHofer@gmx.net"

SendMail JohannesHofer@gmx.at, JohannesHofer@gmx.net, subject, Geschaft

function SendMail( strTo, strFrom, strSubject, strBody)

dim oMsg
set oMsg = CreateObject("CDO.Message")
oMsg.To = strTo
oMsg.From = strFrom
oMsg.Subject = strSubject
oMsg.TextBody = strBody
oMsg.Send

WScript.Echo "Mail von " & strFrom & " an " & strTo & " verschickt.."
set oMsg = Nothing

end function

sub DisplayHelpMessage()
WScript.Echo
WScript.Echo "Usage: sendmail To Subject Body"
WScript.Echo "... Subject und Body in doppelten Hochhaken"
end sub
____________________________________________________________
ungefähr so
 
Scriptkiddy.
Sorry, musste sein, arbeite dich mal bitte ein wenig in VBS und den Windows Scripting Host ein, bevor du solche peinlichen Fragen stellst.
Code: 
Dim ArgObj
Set ArgObj = WScript.Arguments
if ArgObj.Count <> 3 then
DisplayHelpMessage
Diese vier Zeilen erstellen erst eine Variable ArgObj, die danach als Array fungierend, die übergebenen Argumente (Kommandozeilenargumente) aufnimmt.
Wenn weniger als 3 Argumente vorliegen, kommt sogar eine ganz tolle Help-Message...
Das einzige, was du hier eintragen musst, ist lediglich bei
from = "" deine Emailadresse, was nun wirklich jedem auffallen würde, der das Script einmal angeguckt bzw. ausgeführt hat.
lesen.
 
Ich entschuldige mich mal für den Ton in meinem Posting.
Ist nicht unbedingt angebracht jemanden einfach als Scriptkiddy zu bezeichnen, aber irgendwie hatte ich so den Verdacht, dass du dir nicht mal die Mühe gemacht hast, den Code Zeile für Zeile durchzugehen.
 
Um antworten zu können musst du eingeloggt sein.
Zurück
Oben