Note: The other languages of the website are Google-translated. Back to English

Jak odeslat plán opakující se e-mail v aplikaci Outlook?

V aplikaci Microsoft Outlook můžete snadno odeslat plán opakované schůzky, schůzky nebo úkolu ostatním. Pokud ale chcete poslat opakující se e-mail s plánem bez schůzky, schůzky nebo úkolu, jak to můžete udělat? Aplikace Outlook bohužel neposkytuje žádnou funkci pro odesílání opakujících se e-mailů podle plánu, ale v našem tutoriálu vám ukážeme, jak odeslat opakující se e-mail podle plánu v aplikaci Outlook.

Odeslat plán opakující se e-mail v aplikaci Outlook s kódem VBA

Snadno odesílejte plánované opakující se e -maily v aplikaci Outlook pomocí úžasného nástroje


Odeslat plán opakující se e-mail v aplikaci Outlook s kódem VBA

Tento výukový program je rozdělen do čtyř částí, po dokončení těchto částí se vám podaří poslat opakující se e-mail s plánem. Postupujte prosím následovně.

Část 1: Vytvořte novou schůzku

1. Přejděte na Kalendář zobrazit kliknutím Kalendář v Navigační podoknoa poté vytvořte novou schůzku kliknutím Nová událost pod Home Karta.

3. V Jmenování dialog pod Jmenování záložka. Musíš:

Odpověď: Zadejte Předmět B: Zadejte e-mailové adresy příjemců do pole Sídlo
C: Nakonfigurujte Začátek a Čas ukončení D: Vyberte připomenutí pod Připomínka rozbalovací seznam.
Vyberete-li 15 minut, znamená to, že vám bude při odeslání e-mailu připomenout o 15 minut dříve.
E: Vytvořte své tělo schůzky.

Poznámka: Předmět schůzky se stane opakujícím se předmětem e-mailu; a Subjekt jmenování jakmile příjemci obdrží e-mail, stanou se tělem opakovaného e-mailu.

Část 2: Vytvořte novou kategorii

Nyní musíte vytvořit novou kategorii s názvem „Odeslat plán opakovaného e-mailu" jak následuje:

1. V Jmenování dialogové okno, klikněte prosím Kategorizujte > Všechny kategorie v Tagy skupina pod Jmenování Karta.

2. Když Barevné kategorie vyskočí dialogové okno, klikněte prosím Nový tlačítko. V Přidat novou kategorii dialogové okno, zadejte „Odeslat plán opakovaného e-mailu"V Název produktu pole; a poté vyberte barvu v Barva rozbalovací seznam. Pak klikněte na tlačítko OK.

3. Potom uvidíte „Odeslat plán opakovaného e-mailu“Kategorie je uvedena, zaškrtněte políčko a poté klikněte OK .

Část 3: Nastavte opakování

Nyní je čas nastavit opakování schůzky.

1. cvaknutí Opakování v možnosti skupina pod Jmenování záložka. Viz snímek obrazovky:

2. V Opakování schůzky nakonfigurujte svůj Opakování vzor. Pokud potřebujete čas ukončení, nakonfigurujte jej pod Rozsah opakování. A pak klikněte na tlačítko OK.

3. Když se vrátí do Jmenování dialogové okno, klikněte prosím Uložit a zavřít knoflík. Viz screenshot:

Část 4: Použijte kód VBA k odeslání plánu opakovaného e -mailu

1. Stiskněte Další + F11 k otevření Microsoft Visual Basic pro aplikace dialog.

2. Dvakrát klikněte na Project1 > Objekt Microsoft Outlook > ThisOutlookSession v levém podokně. Viz screenshot:

3. Zkopírujte a vložte následující kód VBA do editoru VBA. A pak klikněte Uložit .

VBA: zasílání opakujících se e-mailů podle plánu

Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
    MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
    .To = Item.Location
    .Recipients.ResolveAll
    .Subject = Item.Subject
    .Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub

4. cvaknutí Tools > Reference k otevření Reference - Projekt dialog. V dialogovém okně zaškrtněte Objektová knihovna Microsoft Word a klepněte na tlačítko OK .

5. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

Když Připomínka po vyskakování se e-mail automaticky odešle příjemcům, které jste zadali do pole Umístění v první části. Poté klikněte Propustit v Připomínka dialog. E-mail bude v této době zasílán opakovaně každý den. Viz screenshot:

Poznámka: Kód VBA byl úspěšně otestován v aplikaci Outlook 2010 a novějších verzích.


Snadno odesílejte plánované opakující se e -maily v aplikaci Outlook pomocí úžasného nástroje

Pro mnoho uživatelů aplikace Outlook je výše uvedená metoda příliš únavná na to, aby byla zpracována správně. Zde velmi doporučujeme Naplánovat automatické odesílání vlastnost Kutools pro aplikaci Outlook. S touto funkcí můžete snadno vytvářet více opakujících se e -mailů a naplánovat jejich pravidelné odesílání v denních, týdenních, měsíčních nebo ročních intervalech, jak potřebujete. Chcete -li to provést, postupujte následovně.

Jít do stáhněte si Kutools pro aplikaci Outlook a vyzkoušet.

1. cvaknutí Kutools > Naplánovat automatické odesílání > Vytvořit plán automatického odesílání.

2. Poté se otevře okno se zprávou a potřebujete:

2.1) Vyberte příjemce e -mailu v Komu, Cc or Bcc pole, jak potřebujete, a poté vyplňte e -mail předmět;
2.2) Vytvořte tělo e -mailu;
2.3) Klepněte na tlačítko Opakování pod Opakující se Kutools záložka. Viz snímek obrazovky:

3. Nyní Opakování e -mailů objeví se dialogové okno, musíte zadat opakující se čas, opakující se vzor a rozsah opakování pro e -mail a poté klikněte na OK .

4. Nyní se vrátí do okna zprávy, klikněte Uložit a zavřít tlačítko pro uložení opakujících se nastavení a zavření okna.

Tip: Výše uvedené kroky 1 až 4 můžete opakovat a vytvořit tak více opakujících se e -mailů, jak potřebujete.

5. Nyní funkci zapněte kliknutím Kutools > Naplánovat automatické odesílání > Umožnit.

6. V otvoru Kutools pro aplikaci Outlook , klepněte na tlačítko OK OK.

Po dokončení výše uvedených nastavení budou opakované e -maily automaticky odesílány, jakmile dosáhne zadaného data a času.

Poznámka: Opakující se e -maily můžete snadno spravovat následujícím způsobem.

1. cvaknutí Kutools > Naplánovat automatické odesílání > Spravujte plán automatického odesílání.

2. V Upravit plán automatického odesílání okno, můžete vytvořit nový opakující se e -mail, upravovat, mazat, zapnout or off existující opakující se e -mail podle potřeby. Nebo můžete kliknout na Log ikonu pro zobrazení historie odesílání opakujících se e -mailů.

Klepnutím získáte další informace o této funkci.

  Kutools pro aplikaci Outlook obsahuje více než 100 výkonných funkcí pro Microsoft Outlook. Zdarma k vyzkoušení bez omezení za 60 dní. stáhnout nyní!


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (171)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Metoda pomohla. Fungovalo to pro první schůzku vytvořenou, když jsem to testoval. Ale později to přestalo fungovat.
Tento komentář byl moderátorem webu minimalizován
Měl jsem stejný problém, kroky jsem opakoval několikrát a nyní to vůbec nefunguje, žádné e-maily se neposílají ani nic. Dokázali jste to opravit?
Tento komentář byl moderátorem webu minimalizován
Ahoj, podařilo se mi nastavit opakující se e-mail podle výše uvedených kroků, ale když jsem vytvořil hypertextový odkaz v těle schůzky, když byla událost spuštěna a dostal jsem e-mail, byl hypertextový odkaz převeden na nezpracovaný odkaz. Každá pomoc je oceňována, děkujeme.
Tento komentář byl moderátorem webu minimalizován
Děkuji! Tohle fungovalo. Existuje způsob, jak vložit přílohu do odesílaného e-mailu? Zkoušel jsem test s přidáním přílohy do události kalendáře, ale v e-mailu to neprošlo.
Tento komentář byl moderátorem webu minimalizován
dostali jste někdy odpověď na to, jak přidat přílohu? Dík!
Tento komentář byl moderátorem webu minimalizován
Zprovoznil jsem to u testovacího e-mailu, ale teď už to nic nedělá a všechno jsem smazal a opakoval jsem kroky, je k tomu víc? Mám také outlook 2013
Tento komentář byl moderátorem webu minimalizován
Měl jsem stejný problém. To fungovalo úplně poprvé, ale nezdá se, že by opakované připomenutí schůzky spustilo e-mail. Našel někdo řešení tohoto problému?
Tento komentář byl moderátorem webu minimalizován
[quote]Zprovoznil jsem to u testovacího e-mailu, ale teď už to nic nedělá a všechno jsem smazal a opakoval jsem kroky, je k tomu víc? Mám také outlook 2013Od Wonderful[/quote] Řešili jste to někdy? Právě jsem to nastavil a vidím to samé, co ty. Poprvé to fungovalo skvěle, pak nic.
Tento komentář byl moderátorem webu minimalizován
Nakonec jsem to vyřešil povolením maker v Outlooku, který je ve výchozím nastavení vypnutý. Jediný problém, který mám teď, je, že text v e-mailu je pouze prostý text, žádné tučné písmo, velikost písma nebo změny barvy atd. se nesetkají. Existuje nějaký způsob, jak změnit kód výše, abyste měli v e-mailu text RTF nebo HTML?
Tento komentář byl moderátorem webu minimalizován
Ahoj Řešili jste to. Mám stejný problém Zkoušel jsem to, ale nefunguje. Sub SetMailFormat_2002_2003_2007_2010(ByRef mail As Object) Dim mailFormat As System.Int32 mailFormat = Convert.ToInt32(mail.GetType().InvokeMember("BodyFormat", _ Reflection.Binding'OpermatBody.Format)Nic = 0 'OlBodyFormat.olFormatPlain = 1 'OlBodyFormat.olFormatHTML = 2 'OlBodyFormat.olFormatRichText = 3 If (mailFormat = 1) Then mailFormat = 2 mail.GetType().InvokeMember("Bodypermat.,BindetFflection.", _ Reflection Nic, mail, New Object() {mailFormat}) End Sub Private Sub Application_Reminder(ByVal Item As Object) Dim MItem As MailItem Set MItem = Application.CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Then Exit Sub If Item .Categories "Send Schedule Recurring Email" Potom Exit Sub MItem.To = Item.Location MItem.Subject = Item.Subject MItem.Body = Item.Body MItem.Send Set MItem = Nic End Sub
Tento komentář byl moderátorem webu minimalizován
[quote]To jsem nakonec vyřešil povolením maker v Outlooku, který je ve výchozím nastavení vypnutý. Jediný problém, který mám teď, je, že text v e-mailu je pouze prostý text, žádné tučné písmo, velikost písma nebo změny barvy atd. se nesetkají. Existuje nějaký způsob, jak změnit kód výše, abyste měli v e-mailu text RTF nebo HTML?Autor: Kyle[/quote] Ahoj Našli jste pro to řešení. Potřebuji to :) Kim
Tento komentář byl moderátorem webu minimalizován
Můžete také zvážit použití Plánovače úloh systému Windows pro něco takového. Snadno se používá a zvládne i nástavce.
Tento komentář byl moderátorem webu minimalizován
Zkoušel jsem to s úlohou, ale nic nezískám, protože příloha nejde do těla e-mailu. Poraďte prosím, jak jste to udělali.
Tento komentář byl moderátorem webu minimalizován
Jaký kód používáte? K e-mailu nebyly připojeny přílohy.
Tento komentář byl moderátorem webu minimalizován
jak to vypneš?
Tento komentář byl moderátorem webu minimalizován
Chcete-li zastavit posílání opakujících se e-mailů, můžete: 1. Úplně smazat schůzku. 2. Změňte nebo odeberte nastavenou kategorii. 3. Použijte datum „Konec do“ pro opakování schůzky.
Tento komentář byl moderátorem webu minimalizován
potřebujete mít otevřený/spuštěný outlook, abyste mohli posílat opakovanou poštu?
Tento komentář byl moderátorem webu minimalizován
Funguje tento kód s Office 365 - Outlook 2013? Sledoval jsem kroky několikrát, povolil jsem také makra. Dostanu upomínku a stisknu tlačítko Zavřít, ale e-maily se nikdy neodesílají.
Tento komentář byl moderátorem webu minimalizován
Hej, podívejte se na to – myslím, že si tuto funkci naprosto zamilujete. Už žádné týdenní šablony e-mailů
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak odeslat do distribučního seznamu v kontaktech?
Tento komentář byl moderátorem webu minimalizován
Ano, Aarone, musel jsem to udělat sám. Zkusil jsem přidat distribuční seznam (Outlook Contact Group) s názvem 'Spec Group'. Toto nebylo odesláno. Změnil jsem však název seznamu na 'Spec@Group' (aby to vypadalo jako skutečná e-mailová adresa) a fungovalo to perfektně. K vyzvednutí musí potřebovat '@'. Šťastný Tip! :lol:
Tento komentář byl moderátorem webu minimalizován
Tohle fungovalo dobře. Nyní potřebuji stejný e-mail, abych mohl přejít do více skupin. Může někdo pomoci? Private Sub Application_Reminder(ByVal Item As Object) Dim CF As Folder Set CF = Application.Session.GetDefaultFolder(olFolderContacts) Dim DLI As DistListItem Set DLI = CF.Items("GDL Group 1") Dim MItem As MailItem Set MItem = Aplikace. CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Pak Exit Sub If Item.Categories "Recurring GDL Recert Email" Then Exit Sub MItem.To = DLI MItem.Subject = Item.Subject MItem.Body = Item.Body MItem. Odeslat Set MItem = Nic End Sub
Tento komentář byl moderátorem webu minimalizován
Vytvořte další distribuční seznam, který obsahuje/odkazuje na jiné distribuční seznamy, které již máte nastavení, které chcete zahrnout.
Tento komentář byl moderátorem webu minimalizován
Je možné naplánovat odeslání e-mailu v aplikaci Outlook, když je počítač pryč. Například bych chtěl v neděli poslat připomenutí schůzky na schůzku v pondělí, ale v neděli nejsem v práci, tak jak docílím toho, aby mi ten e-mail chodil v neděli, když nejsem v práci a můj počítač je vypnuto? Dík!
Tento komentář byl moderátorem webu minimalizován
Kód VBA se neobjevil, když jsem stiskl ALT & F11. Byl jsem schopen vytáhnout Microsoft Visual Basic for Applications, ale nebyl přítomen žádný kód. Můžete prosím poradit? Děkuji, Raji
Tento komentář byl moderátorem webu minimalizován
Ahoj Raji, neměl by být přítomen žádný kód VBA. Pokud budete postupovat podle výše uvedeného návodu, když dvakrát kliknete na „ThisOutlookSession“, má být prázdné. Musíte zkopírovat a vložit kód zobrazený v průvodci do okna „ThisOutlookSession“ a poté jej uložit. Snad to pomůže.
Tento komentář byl moderátorem webu minimalizován
Ahoj, až dodržím všechny kroky a uložím a půjdu, udělejte další e-mail - kód je tam stále z minula. Je kód připojen k vybrané kategorii, takže není nutné přidávat kód pro každý e-mail?
Tento komentář byl moderátorem webu minimalizován
Ahoj Bonnie, kód VBA stačí přidat pouze jednou (pro první opakovaný e-mail). Pokud nastavujete více než jeden opakující se e-mail, tento krok vynechejte.
Tento komentář byl moderátorem webu minimalizován
Mám office 2016 a zkusil jsem to přesně podle vašich pokynů. Fungovalo to!! Děkuji mnohokrát. Musel jsem změnit nastavení zabezpečení maker v aplikaci Outlook 2016 a editoru VBA, aby to fungovalo, ale jakmile to bylo hotovo, pokyny plynuly snadno.
Tento komentář byl moderátorem webu minimalizován
Ahoj, jak jsi změnil nastavení zabezpečení maker v aplikaci outlook a na co jsi to změnil?
Tento komentář byl moderátorem webu minimalizován
Takže dvě věci, jedna se nezobrazuje tak, jak jsem to napsal IE, nejsou tam žádné tučné znaky a dvě, jak přidám podpis? protože se zobrazuje jako hypertextový odkaz místo mého běžného podpisu. Děkuji za pomoc.
Tento komentář byl moderátorem webu minimalizován
Alex Mine se také objeví s odstraněným formátováním. Jak to udržíme?
Tento komentář byl moderátorem webu minimalizován
Odeslalo to v pořádku, ale vypustilo to všechno fantastické formátování, které mám v těle e-mailu. Jak dosáhnu toho, aby to formátování zůstalo???
Tento komentář byl moderátorem webu minimalizován
Potřebuji vědět, jak\jestli můžete připojit excelový spreed list?
Tento komentář byl moderátorem webu minimalizován
Hej lidi. Tento kód funguje skvěle, ale mám malý problém. E-mail, který se snažím odeslat, je součástí dvou kategorií: Odeslat zprávu (makro používá) a PROGRAMARI RED-TEAM. Makro funguje dobře, když přidám pouze kategorii Odeslat zprávu, ale jakmile je přidána jakákoli jiná kategorie, makro přestane odesílat e-maily. Tady je zatím kód. Prosím pomozte :P Private Sub Application_Reminder(ByVal Item As Object) Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) 'IPM.TaskItem pro sledování připomenutí úkolů If Item.MessageClass "IPM.Appointment" Potom Exit Sub End If If Položka ziua," & vbNewLine & vbNewLine & _ "Conform bazei noastre de date, autorization/contractul de service, incheiat intre company nostra si " + Item.Subject + " urmeaza as expired in the 14 of the." & vbNewLine & _ "Aste lucru is attentia departamentului nostru Service, you urmeaza with the fiti contactati in the cel more scurt timer posibil for a stabili cursul actiunilor viitoare." & vbNewLine & vbNewLine & _ "Va multumim pentru increderea acordata." & vbNewLine & _ "Promotor Import Export SRL" & vbNewLine & vbNewLine & vbNewLine & _ "Acesta este un mesaj automat." objMsg.Send Set objMsg = Nic End Sub
Tento komentář byl moderátorem webu minimalizován
zastavuje se kvůli řádku.... If Item.Categories <> "Odeslat opakující se e-mail s plánem" Pak Exit Sub
když přidáte další kategorii, způsobí to exit sub.... možná použijte if instr(1,item.categories,"Send Schedule Recurring Email") =0 pak exit sub nebo něco takového...
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL