2 Metoda të shpejta për të krijuar emaile të reja nga një shabllon me Outlook VBA

Meqenëse shumë përdorues mendojnë se është e rëndë të gjesh dhe të përdorësh shabllone të postës elektronike të Outlook, ne do të shfaqim 2 metoda të shpejta për të krijuar emaile të reja duke përdorur një shabllon me Outlook VBA në këtë artikull.

Më shpesh sesa jo, për të përdorur një shabllon email-i Outlook, së pari duhet ta zbuloni atë duke klikuar "Artikuj të Rinj" > "Artikuj të Tjerë" > "Zgjidhni Formularin". Pastaj, në kutinë e dialogut "Zgjidhni Formularin", gjeni dhe hapni shabllonet e synuara në "Shabllonet e Përdoruesit në Sistemin e Skedarëve", si në pamjen e mëposhtme të ekranit.

Natyrisht, është me të vërtetë shumë e mundimshme. Prandaj, këtu do të prezantojmë 2 mjete të shpejta, të cilat mund të krijojnë me shpejtësi email të ri duke përdorur shabllone me ndihmën e Outlook VBA. Lexoni për t'i marrë ato në detaje.

Metoda 1: Krijoni një shabllon të ri të postës elektronike direkt nga Outlook VBA

1. Në fillim, kthehu te skeda "Zhvilluesi" në dritaren kryesore të Outlook.
2. Pastaj klikoni në butonin "Visual Basic", i cili do të sjellë një dritare të re.
3. Më pas, kopjoni dhe ngjisni kodet e mëposhtme VBA në një modul.

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. Pas kësaj, dilni nga dritarja "Visual Basic". Tani ndiqni hapat e mëposhtëm për të shtuar këtë makro në shiritin e veglave të aksesit të shpejtë:

• Në fillim, klikoni shigjetën poshtë në shiritin e veglave të aksesit të shpejtë dhe zgjidhni "Më shumë komanda".
• Pastaj në dritaren e re që shfaqet, vendosni "Zgjidh komandat nga" në "Macros".
• Pas kësaj, hidheni në atë të duhurin.
• Tjetra, klikoni në butonin "Shto".
• Më pas, ju mund të ndryshoni pamjen e saj. Klikoni në butonin "Modifiko". Në kutinë e re të dialogut, jepni një emër të ri dhe specifikoni një ikonë për të.
• Së fundi klikoni dy "OK".

5. Më në fund, mund të klikoni në ikonën makro në shiritin e veglave të aksesit të shpejtë. Menjëherë, do të shfaqet një dritare e re mesazhi, si fotografia e mëposhtme.

Metoda 2: Krijoni një email të ri nga një shabllon ekzistues nga Outlook VBA

1. Së pari, duhet të keni në dorë një shabllon të gatshëm të postës elektronike. Krijoni një email të ri në formatin e dëshiruar, shkrimi dhe ruajeni si shabllon të Outlook. Për hapat e detajuar, referojuni artikullit "Si të përmirësoni efikasitetin tuaj të punës përmes modeleve të Outlook“. Gjithashtu, ju lutemi shkruani shtegun e dosjes së ruajtjes së këtij skedari shabllon.
2. Pastaj hyni në dritaren "Visual Basic" dhe hapni një modul të ri si Këshilla 1.
3. Më pas, duhet të kopjoni dhe ngjisni pamjen e mëposhtme të ekranit:

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. Pas kësaj, ndiqni hapin 5 në këshillën 1 të mësipërm për të shtuar makro të re në shiritin e veglave të aksesit të shpejtë.
5. Më në fund mund të provoni. Ju do të merrni emailin e ri duke përdorur shabllonin, si imazhi më poshtë:

Krahasimi i 2 metodave

Përballuni me gabimet e rastësishme të Outlook

Edhe pse Outlook është i pasur me funksione, ai është ende i ndjeshëm ndaj problemeve të ndryshme. Për më tepër, më shqetësuesi është se përdoruesit nuk mund ta nisin Outlook-un. Në përgjithësi, kjo mund të ndodhë nga Outlook i korruptuar. Kështu që mund të shkoni te "Paneli i Kontrollit" për të riparuar paketën e zyrës. Nëse problemi vazhdon, atëherë duhet t'i drejtoheni një mjeti riparimi me përvojë, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim SQL Server MDF dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com