Automatické odesílání emailu s přílohou

Jakékoliv komunikační nástroje jako Skype, ICQ, Windows messenger...ale i různé diskuze, chaty…

Moderátor: Mods_senior

Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 11.5
Elite Level 11.5
Příspěvky: 14780
Registrován: březen 10
Pohlaví: Muž

Re: Automatické odesílání emailu s přílohou

Příspěvekod ITCrowd » 29 lis 2013 13:01

Tak tady to je:

Kód: Vybrat vše

'***********************************************
'* Skript odešle určený soubor na danou adresu *
'* Jméno souboru si vytváří z aktuálního data  *
'*                                             *
'*        Vytvořeno pro PC-HELP                *
'*                                             *
'*          Etienn@Script v1.0                 *
'***********************************************

' Deklarace proměnných
Option Explicit
Dim cislotydne, Mesic, Jmeno, Cesta, file, fso
Dim CisloDne, objOutlk, objMail, strMsg, olMailItem

cislotydne = DatePart ("ww", Now())
Mesic = MonthName(Month(Now()))
Jmeno = cislotydne & ". týden - " & Mesic
Cesta = "C:\Users\Thor\Documents\REPORT\" & Jmeno & ".docx"
file = Cesta
'MsgBox file
CisloDne = Weekday(Now())
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
  If CisloDne <> 1 Or CisloDne <> 7 Then Odeslani
Else
  MsgBox "Soubor " & file & " nenalezen", vbOKOnly + vbCritical, "Chybová zpráva"
  WScript.Quit
End If

Sub Odeslani
'Nová zpráva
   Set objOutlk = createobject("Outlook.Application")
   Set objMail = objOutlk.createitem(olMailItem)
   objMail.To = "muj.mail@neco.cz" 'zde doplnit adresu
   objMail.cc = "" 'Zde adresa pro kopii; objMail.bcc pro skrytou adresu
'Předmět
   objMail.subject = "REPORT " & cstr(day(now)) & ". " & cstr(month(now)) & ". " & cstr(year(now))
'Zpráva   
   strMsg = "První řádek zprávy" & vbcrlf
   strMsg = strMsg & "Druhý řádek zprávy"
'Příloha
   objMail.attachments.add(file)
   objMail.body = strMsg
   'objMail.display 'Zobraz před odesláním, jinak rovnou objMail.Send pro odeslání
   objMail.Send
End sub
'Clean up
Set objMail = Nothing
Set objOutlk = Nothing

Kód zkopíruj do textového editoru (notepadu) - nepoužívat Word a podobně!! a ulož. Zedituj e-mailovou adresu, předmět zprávy (teď to píše REPORT a aktuální datum) a první a druhý řádek zprávy. Pokud žádný text nechceš, pak před řádky strMsg dej apostrof ('). Ulož.
Změň příponu .txt na .vbs. Poklepáním na soubor se provede odeslání. Pokud skript soubor nenalezne, vypíše zprávu.
Kontrolu tvorby jména souboru lze zapnout odstraněním apostrofu u řádku -'MsgBox file-. (Slouží pro odladění).
Spuštění souboru v potřebný čas zajistíš přes plánovač úloh. Skript si sám kontroluje, zda není sobota, nebo neděle, v tom případě report neodešle.
Doporučuji nejdřív vyzkoušet na svůj e-mail, spustit poklepáním a v případě, že bude vše v pořádku, změnit e-mailovou adresu na správnou a zařadit do úloh.
V případě závad se klidně ozvi.


Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem

Reklama
Uživatelský avatar
thorkaufman
nováček
Příspěvky: 7
Registrován: listopad 11
Pohlaví: Muž

Re: Automatické odesílání emailu s přílohou

Příspěvekod thorkaufman » 30 lis 2013 08:56

Dekuji moc, jsi opravdu mistr! Hned v pondeli to v praci zkusim.

Odesláno z mého GT-S5830 pomocí Tapatalk 2

jirkas007
nováček
Příspěvky: 1
Registrován: květen 16
Pohlaví: Muž

Re: Automatické odesílání emailu s přílohou

Příspěvekod jirkas007 » 23 kvě 2016 14:30

Dobrý den,

tento skript jsem použil a funguje na jedničku!

Jen nemůžu přijít na to, jak odeslat 2 a více souborů v jednom emailu. Mohl by jste mi prosím pomoct?

Děkuji Jiří Pešek

Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 11.5
Elite Level 11.5
Příspěvky: 14780
Registrován: březen 10
Pohlaví: Muž

Re: Automatické odesílání emailu s přílohou

Příspěvekod ITCrowd » 23 kvě 2016 19:52

Vítej na PC-HELP!
Snad ano.
Pokud jsi četl tohle téma od začátku, pak musíš přesně popsat, jak se skript má chovat - viz. tvorba jména souboru.
Pokud chceš jen tak nějaký soubor přihodit, pak by mohlo stačit ho přidat pomocí objMail.attachments.add(....), pozor, soubor musí existovat!
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem

Dody
nováček
Příspěvky: 2
Registrován: září 18
Pohlaví: Muž

Re: Automatické odesílání emailu s přílohou

Příspěvekod Dody » 04 zář 2018 06:51

Dobrý den,
tento skript používám skoro dva roky a funguje výborně , ale teď jsme přešli na jiného poštovního klienta konkrétně Mozilla Thunderbird 60.0 . Dal by se upravit pro tohoto klienta ?
Děkuj

Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 11.5
Elite Level 11.5
Příspěvky: 14780
Registrován: březen 10
Pohlaví: Muž

Re: Automatické odesílání emailu s přílohou

Příspěvekod ITCrowd » 05 zář 2018 15:13

Zkusím se na to podívat. Nemůžu zaručit, thunderbird neposkytuje objekt jako outlook.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem

zeus
Master Level 9.5
Master Level 9.5
Příspěvky: 8873
Registrován: únor 12
Bydliště: Pankrac
Pohlaví: Muž

Re: Automatické odesílání emailu s přílohou

Příspěvekod zeus » 05 zář 2018 21:13

A neslo by pak vyuzit mailto: ?
Prazaci jo ty se maj, az kdyz si me zavolaj..

Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 11.5
Elite Level 11.5
Příspěvky: 14780
Registrován: březen 10
Pohlaví: Muž

Re: Automatické odesílání emailu s přílohou

Příspěvekod ITCrowd » 06 zář 2018 09:12

Zkusit to můžu.
Jen se to nepropíše do odeslané pošty v thunderbirdu.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem

Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 11.5
Elite Level 11.5
Příspěvky: 14780
Registrován: březen 10
Pohlaví: Muž

Re: Automatické odesílání emailu s přílohou

Příspěvekod ITCrowd » 10 zář 2018 21:26

Takže - mailto nepůjde použít, nenašel jsem žádnou cestu, jak přiložit soubor a odeslat bez interakce uživatele.
Můžu použít objek CDO.Message, tam se určitě nezapíše do odeslané pošty v thunderbirdu. Navíc je zde komplikace s nastavením SMTP, to by nemuselo klapnout.
Nicméně jsem našel možnost, jak odeslat email z thunderbirdu pomocí příkazu. Pracuju na tom.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem

Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 11.5
Elite Level 11.5
Příspěvky: 14780
Registrován: březen 10
Pohlaví: Muž

Re: Automatické odesílání emailu s přílohou

Příspěvekod ITCrowd » 11 zář 2018 21:04

Ahoj,
takže verze pro thunderbird:

Kód: Vybrat vše

  MsgBox "Soubor " & file & " nenalezen", vbOKOnly + vbCritical, "Chybová zpráva"
  Set fso = Nothing
  WScript.Quit
End If

Sub Odeslani
Dim Predmet, Prikaz, Zprava, objShell
Set objShell = WScript.CreateObject("WScript.Shell")
'Předmět
   Predmet = "REPORT " & cstr(day(now)) & ". " & cstr(month(now)) & ". " & cstr(year(now))
'Zpráva   
   Zprava = "První řádek zprávy" & vbcrlf
   Zprava = Zprava & "Druhý řádek zprávy"
' Vytvoření příkazu
Prikaz = "thunderbird -compose " & chr (34) & "to='ja@mujmail.cz',subject=" & Chr (39) & _
Predmet & Chr(39) & ",body=" & Chr (39) & Zprava & Chr (39) & ",attachment=" & Chr (39) & file & Chr (39) & Chr (34)
'WScript.Echo Prikaz
objShell.Run Prikaz
Set objShell = Nothing
End sub
'Clean up
Set fso = Nothing

Bohužel vyžaduje interakci - tedy otevře vyplněné okno thunderbirdu a je nutno stisknout odeslat.
Zkopíruj si vše v okně a nahraď textem vše od řádku Else
V řádku Prikaz ja@mujmail.cz nahraď skutečnou mailovou adresou.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem

Dody
nováček
Příspěvky: 2
Registrován: září 18
Pohlaví: Muž

Re: Automatické odesílání emailu s přílohou

Příspěvekod Dody » 12 zář 2018 15:09

Ahoj takže moc děkuju skript jde a takhle jak to je mi to stačí. Ještě jednou dík. :clap: :thumbup:

Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 11.5
Elite Level 11.5
Příspěvky: 14780
Registrován: březen 10
Pohlaví: Muž

Re: Automatické odesílání emailu s přílohou

Příspěvekod ITCrowd » 12 zář 2018 15:35

Není zač :-) Od toho tu jsme :-)
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Postfix - odesílání emailu zvenku
    od preclik » 08 pro 2017 09:02 » v LiNuX a ostatní alternativní OS
    3
    500
    od dvorakj
    09 pro 2017 14:31
  • Webslužba pro odesílání SMS
    od LuCaCZ » 12 lis 2017 02:33 » v Web-tipy a vaše weby
    3
    788
    od X
    14 lis 2017 05:42
  • iOS: Podpis v emailu
    od teichmann.ondrej » 25 říj 2017 16:17 » v Mobily, tablety a jiná přenosná zařízení
    3
    316
    od Cat
    25 říj 2017 20:33
  • Nefunkční HTML tagy v emailu
    od popcorn » 18 úno 2018 12:05 » v PC-HELP - připomínky k fóru
    0
    283
    od popcorn
    18 úno 2018 12:05
  • Úprava kódu pro odeslání emailu.
    od luko02420 » 01 zář 2018 20:10 » v Kancelářské balíky
    6
    364
    od luko02420
    04 zář 2018 20:14

Zpět na “Komunikace na internetu”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host