seychellesartprojects.org

Viděli jsme VBA v aplikaci Excel a jak automatizujeme naše úkoly v aplikaci Excel vytvářením maker, v aplikaci Microsoft Outlook máme také odkaz na VBA a pomocí kterého můžeme ovládat Outlook pomocí VBA, což usnadňuje automatizaci našich opakovaných úkolů v aplikaci Outlook a podobně jako v Excelu musíme povolit funkci vývojáře používat VBA v aplikaci Outlook.

VBA Outlook

Krása VBA spočívá v tom, že můžeme odkazovat na další objekty společnosti Microsoft, jako jsou PowerPoint, Word a Outlook. Můžeme vytvářet krásné prezentace, můžeme pracovat s dokumentem Microsoft Word a nakonec můžeme také posílat e-maily. Ano, dobře jste to slyšeli, můžeme posílat e-maily ze samotné aplikace Excel. To zní trapně, ale zároveň nám to také usměje úsměv na tváři. V tomto článku vám ukážu, jak pracovat s objektem Microsoft Outlook z aplikace Excel pomocí kódování VBA. Číst dál…

Jak můžeme odkazovat na Outlook z Excelu?

Pamatujte si, že Outlook je objekt a musíme v něm nastavit odkaz v knihovně odkazů na objekty. Chcete-li nastavit objekt aplikace Outlook jako odkaz, postupujte podle následujících kroků.

Krok 1: Přejít na editor jazyka.

Krok 2: Přejděte na Nástroje> Reference.

Krok 3: V níže uvedené knihovně objektů přejděte dolů a vyberte „MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY“.

Zaškrtněte políčko „MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY“ a zpřístupněte jej pro Excel VBA.

Nyní můžeme přistupovat k objektu VBA Outlook z aplikace Excel.

Napište kód pro odesílání e-mailů z aplikace VBA Outlook z aplikace Excel

Můžeme posílat e-maily z aplikace Excel prostřednictvím aplikace Outlook. K tomu musíme napsat kódy VBA. Podle následujících pokynů odešlete e-maily z Outlooku.

Tuto šablonu VBA Outlook to Excel si můžete stáhnout zde - Šablona VBA Outlook to Excel

Krok 1: Vytvořte dílčí postup.

Kód:

 Možnost Explicit Sub Send_Exails () End Sub 

Krok 2: Definujte proměnnou jako VBA Outlook.Application .

Kód:

 Možnost Explicit Sub Send_Exails () Dim OutlookApp jako Outlook.Application End Sub 

Krok 3: Výše uvedená proměnná odkazuje na aplikaci VBA Outlook. V aplikaci Outlook musíme posílat e-maily, takže definujte jinou proměnnou jako Outlook.MailItem.

Kód:

 Možnost Explicit Sub Send_Exails () Dim OutlookApp jako Outlook.Application Dim OutlookMail jako Outlook.MailItem End Sub 

Krok 4: Nyní jsou obě proměnné objektovými proměnnými. Musíme je nastavit. Nejprve nastavte proměnnou „OutlookApp“ jako New Outlook.Application .

Kód:

 Sub Send_Exails () Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Set OutlookApp = New Outlook.Application End Sub 

Krok 5: Nyní nastavte druhou proměnnou „OutlookMail“, jak je uvedeno níže.

Nastavit OutlookMail = OutlookApp.CreateItem (olMailItem)

Kód:

 Sub Send_Exails () Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Set OutlookApp = New Outlook.Application Set OutlookMail = OutlookApp.CreateItem (olMailItem) End Sub 

Krok 6: Nyní s přístupem k výpisům VBA Outlook Mail.

Kód:

 Sub Send_Exails () Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Set OutlookApp = New Outlook.Application Set OutlookMail = OutlookApp.CreateItem (olMailItem) With OutlookMail End With End Sub 

Nyní můžeme přistupovat ke všem dostupným položkám s e-mailovými položkami, jako jsou „Tělo e-mailu“, „Komu“, „CC“, „BCC“, „Předmět“ a mnoha dalším věcem.

Krok 7: Nyní uvnitř příkazu můžeme vidět seznam IntelliSense vložením tečky .

Krok 8: Nejprve vyberte formát těla jako olFormatHtml .

Kód:

 With OutlookMail .BodyFormat = olFormatHTML End with 

Krok 9: Nyní zobrazte e-mail.

Kód:

 With OutlookMail .BodyFormat = olFormatHTML .Display End with 

Krok 10: Nyní musíme napsat e-mail do těla e-mailu. Vyberte HtmlBody .

Kód:

 S OutlookMail .BodyFormat = olFormatHTML .Display .HTMLBody = "Sem napište svůj e-mail" Konec s 

Níže je uveden příklad těla psaní e-mailu.

Krok 11: Po napsání e-mailu musíme zmínit e-mailové ID příjemce. Pro tento přístup „ Komu “.

Krok 12: Další zmínka o tom, komu chcete odeslat e-mail do CC .

Krok 13: Nyní uveďte ID e-mailu BCC ,

Krok 14: Další věcí je, že musíme zmínit předmět e-mailu, který posíláme.

Krok 15: Nyní přidejte přílohy. Pokud chcete odeslat aktuální sešit jako přílohu, použijte přílohu jako Tento sešit

Krok 16: Nakonec odešlete e-mail pomocí metody Odeslat .

Nyní tento kód odešle e-mail z vaší aplikace Outlook VBA. Pomocí níže uvedeného kódu VBA můžete odesílat e-maily z aplikace Outlook.

Chcete-li použít níže uvedený kód, musíte v knihovně objektů aplikace Excel VBA nastavit odkaz na objekt na „MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY “.

Nastavením odkazu na knihovnu objektů se nazývá časná vazba. Důvod, proč musíme nastavit odkaz na knihovnu objektů, protože bez nastavení knihovny objektů jako „MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY“ nemůžeme přistupovat k seznamu IntelliSense vlastností a metod VBA. Díky tomu je psaní kódu obtížné, protože si musíte být jisti, co píšete, pokud jde o techniku ​​a pravopis.

 Sub Send_Emails () 'Tento kód je brzy závazný, tj. V nabídce Nástroje> Reference> Zkontrolovali jste "MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY" Dim OutlookApp jako Outlook.Application Dim OutlookMail jako Outlook.MailItem Nastavit OutlookApp = Nový Outlook.Application Nastavit OutlookMail = OutlookApp. CreateItem (olMailItem) s OutlookMail .BodyFormat = olFormatHTML .Display .HTMLBody = "Vážený ABC" & "
„&“
"&" Naleznete přiložený soubor "& .HTMLBody 'poslední. HTMLBody obsahuje podpis z aplikace Outlook.' '
zahrnuje konce řádků čb dva řádky. To = "[email protected]" .CC = "[email protected]" .BCC = "[email protected]; [email protected]" .Subject = "Testovat poštu ".Attachments = ThisWorkbook .Send End With End Sub