2 gyors módszer új e-mailek létrehozására sablonból az Outlook VBA segítségével

Mivel sok felhasználó nehézkesnek tartja az Outlook e-mail sablonok megtalálását és használatát, ebben a cikkben bemutatunk két gyors módszert az új e-mailek létrehozására az Outlook VBA-val készült sablon használatával.

Az Outlook e-mail sablonok használatához többnyire először meg kell találni azokat az „Új elemek” > ​​„További elemek” > ​​„Űrlap kiválasztása” menüpontra kattintva. Ezután az „Űrlap kiválasztása” párbeszédpanelen keresse meg és nyissa meg a célsablonokat a „Felhasználói sablonok a fájlrendszerben” részben, ahogy az alábbi képernyőképen is látható.

Nyilvánvaló, hogy ez valóban nagyon kellemetlen. Ezért itt bemutatunk 2 gyors eszközt, amellyel gyorsan lehet új e-maileket létrehozni sablonok segítségével az Outlook VBA segítségével. Olvasson tovább, hogy részletesen megismerje őket.

1. módszer: Hozzon létre egy új e-mail sablont közvetlenül az Outlook VBA segítségével

1. Először lépjen a „Fejlesztő” fülre az Outlook főablakában.
2. Ezután kattintson a „Visual Basic” gombra, amely új ablakot hoz létre.
3. Ezután másolja és illessze be a következő VBA-kódokat egy modulba.

Sub CreateNewMail()
    Dim obApp As Object
    Dim NewMail As MailItem
 
    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItem(olMailItem)
 
    'You can change the concrete info as per your needs
    With NewMail
         .Subject = Date & " Test Email"
         .To = "example@mail.com"
         .Body = "Dear Johnny," & vbCrLf & vbCrLf & "I'm glad to write this email to you .......... " & vbCrLf & vbCrLf & "This is just a test email template with Outlook VBA" & vbCrLf & vbCrLf & vbCrLf & "Yours Truly," & vbCrLf & vbCrLf & "John Smith"
         .Attachments.Add ("C:\Attachments\Test File.docx")
         .Importance = olImportanceHigh
         .Display
    End With
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

4. Ezt követően lépjen ki a „Visual Basic” ablakból. Most kövesse az alábbi lépéseket a makró gyorselérési eszköztárhoz való hozzáadásához:

• Először kattintson a lefelé mutató nyílra a Gyorselérési eszköztárban, és válassza a „További parancsok” lehetőséget.
• Ezután az új felugró ablakban állítsa be a „Parancsok kiválasztása” lehetőséget „Makrók” értékre.
• Ezt követően állítsa be a megfelelőt.
• Ezután kattintson a „Hozzáadás” gombra.
• Ezt követően megváltoztathatja a megjelenését. Kattintson a „Módosítás” gombra. Az új párbeszédpanelen adjon neki új nevet, és adjon meg egy ikont.
• Végül kattintson két „OK” gombra.

5. Végül kattintson a makró ikonra a Gyorselérési eszköztáron. Azonnal egy új üzenetablak jelenik meg, mint az alábbi képen.

2. módszer: Hozzon létre új e-mailt egy meglévő sablonból az Outlook VBA segítségével

1. Először is, legyen a kezében egy kész e-mail sablon. Hozzon létre egy új e-mailt a kívánt formátumban, levélpapírt, és mentse el Outlook-sablonként. A részletes lépésekért lásd a "Hogyan javíthatja a munka hatékonyságát az Outlook-sablonok segítségével”. Kérjük, írja le a sablonfájl mentési mappa elérési útját is.
2. Ezután nyissa meg a „Visual Basic” ablakot, és nyisson meg egy új modult, például az 1. tippet.
3. Ezt követően másolja ki és illessze be a következő képernyőképet:

Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem
 
    Set obApp = Outlook.Application
    'Change the template file folder path according to your case
    Set NewMail = obApp.CreateItemFromTemplate("C:\Users\Test\Documents\Test Mail.oft")
    NewMail.Display
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

4. Ezután kövesse a fenti 5. tipp 1. lépését az új makró gyorselérési eszköztárhoz való hozzáadásához.
5. Végül megpróbálhatod. Az új e-mailt az alábbi képen látható sablon használatával kapja meg:

A 2 módszer összehasonlítása

Megbirkózni az alkalmi Outlook-hibákkal

Bár az Outlook funkciókban gazdag, továbbra is ki van téve különféle problémáknak. Sőt, a legbosszantóbb az, hogy a felhasználók nem tudják elindítani az Outlookot. Általánosságban elmondható, hogy ez a következő okokból fordulhat elő: sérült Outlook. Így a „Vezérlőpult” segítségével megjavíthatja az irodai csomagot. Ha a probléma továbbra is fennáll, akkor tapasztalt javítószerszámot kell igénybe vennie, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve javítás SQL Server MDF és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com