Ինչպե՞ս ինքնաբերաբար ողջույնի հաղորդագրություն ուղարկել կոնտակտին, եթե նրա ծննդյան օրն այսօր Outlook- ում է:

Sometամանակ առ ժամանակ գուցե ցանկանաք ինքնաբերաբար ողջույնի հաղորդագրություն ուղարկել կոնտակտին, երբ նրա ծննդյան օրն այսօր Outlook- ում է: Հոգնեցուցիչ աշխատանք կլինի, երբ մեկ առ մեկ ստուգեք կոնտակտի ծննդյան օրը և ձեռքով ուղարկեք ողջույնի նամակները: Այս հոդվածը ես կներկայացնեմ VBA կոդ ՝ այն արագ և հեշտ լուծելու համար:

Outlook- ում VBA կոդով իր ծննդյան օրվա կապակցությամբ կոնտակտին ավտոմատ կերպով ուղարկեք ողջույնի հաղորդագրություն

Outlook- ում VBA կոդով իր ծննդյան օրվա կապակցությամբ կոնտակտին ավտոմատ կերպով ուղարկեք ողջույնի հաղորդագրություն

Կոնտակտին ինքնաբերաբար ողջույնի հաղորդագրություն ուղարկելու համար, եթե նրա ծննդյան օրն այսօր է, նախ տեղադրեք VBA կոդ, ապա կոդը գործարկելու համար անհրաժեշտ է ստեղծել կրկնվող առաջադրանք:

Հետևյալ քայլերը կարող են օգնել ձեզ.

1, Գործարկեք Outlook- ը և այնուհետև պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2, Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը - ից Project1 (VbaProject.OTM) ռեժիմը բացելու պատուհանը, այնուհետև պատճենեք և կպցրեք հետևյալ կոդը դատարկ մոդուլի մեջ:

VBA կոդ. Ավտոմատ շնորհավորական ուղերձ ուղարկեք կոնտակտին ՝ ծննդյան օրվա հիման վրա.

Private Sub Application_Reminder(ByVal Item As Object)
Dim xTempMail As MailItem
Dim xFilePath As String
Dim xItems As Outlook.Items
Dim xItem As Object
Dim xContactItem As Outlook.ContactItem
Dim xTodayDate As String
Dim xBirthdayDate As String
Dim xGreetingMail As Outlook.MailItem
Dim xWordDoc As Word.Document
Dim xGreetings As String
Dim xBool As Boolean
xFilePath = CreateObject("shell.Application").NameSpace(5).self.Path & "\UserTemplates"
Set xFSO = CreateObject("Scripting.FileSystemObject")
If xFSO.FolderExists(xFilePath) = False Then
    MkDir xFilePath
End If
If IsFileExists(xFilePath & "\Birthday Greeting Mail.oft") = False Then
    Set xTempMail = Outlook.CreateItem(olMailItem)
    xTempMail.SaveAs xFilePath & "\Birthday Greeting Mail.oft", olTemplate
    xTempMail.Close olDiscard
End If
If (TypeOf Item Is TaskItem) And (Item.Subject = "Send Birthday Greeting Mail") Then
xGreetings = "Happy Birthday!"
           xGreetings = InputBox("Input birthday greetings", "Kutools for Outlook", xGreetings)
   xTodayDate = Month(Date) & "-" & Day(Date)
   Set xItems = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
   For Each xItem In xItems
       If Not (TypeOf xItem Is ContactItem) Then Exit Sub
       Set xContactItem = xItem
       xBirthdayDate = Month(xContactItem.Birthday) & "-" & Day(xContactItem.Birthday)
       If xBirthdayDate = xTodayDate Then
           Set xGreetingMail = Outlook.Application.CreateItemFromTemplate(xFilePath & "\Birthday Greeting Mail.oft")
           Set xWordDoc = xGreetingMail.GetInspector.WordEditor
           
           xWordDoc.Range.InsertBefore "Dear " & xContactItem.LastName & Chr(10) & xGreetings & Chr(10) & Chr(10)
           With xGreetingMail
                .Recipients.Add (xContactItem.Email1Address)
                .Subject = "Happy Birthday!"
                .Display
                .Close (olSave)
                .Send
          End With
       End If
   Next
End If
End Sub
Function IsFileExists(ByVal FileName As String) As Boolean
Dim xFileSystem As Object
Set xFileSystem = CreateObject("Scripting.FileSystemObject")
If xFileSystem.FileExists(FileName) = True Then
    IsFileExists = True
Else
    IsFileExists = False
End If
End Function 

3. Այնուհետև սեղմեք Գործիքներ > Սայլակ է Microsoft Visual Basic հավելվածների համար պատուհանը դուրս եկավ Հղումներ-նախագիծ 1 երկխոսության տուփ, ստուգեք Microsoft Word օբյեկտի գրադարան և Microsoft Scripting Runtime ընտրանքներ Հասանելի հղումներ ցուցակի տուփ, տես նկարի նկարը.

4. Այնուհետեւ կտտացրեք OK երկխոսությունը փակելու համար, այժմ, դուք պետք է առաջադրանք ստեղծեք VBA կոդը գործարկելու համար: Խնդրում ենք գնալ դեպի Խնդիր վահանակ, սեղմեք Նոր խնդիր առաջադրանք ստեղծելու համար.

(1.) Մեջ Սուբյեկt տող, դուք պետք է մուտքագրեք Թեմա որպես Ծննդյան շնորհավորական նամակ ուղարկել;

(2.) Ապա կտտացրեք Կրկնություն տակ Խնդիր էջանիշ;

(3.) Ի Առաջադրանքի կրկնություն երկխոսության տուփ, ընտրեք Օրական և հստակեցնել յուրաքանչյուր 1 օրը(եր) տարբերակը Կրկնության օրինաչափություն Բաժին;

5. Այնուհետեւ կտտացրեք OK երկխոսության տուփը փակելու համար վերադարձեք առաջադրանքի պատուհան, խնդրում ենք հիշեցնել կրկնվող առաջադրանքի համար, ինչպես ցույց է տրված հետևյալ սքրինշոթը.

6. Այսուհետ, երբ հիշեցումն ազդարարի, մակրոն անմիջապես կգործարկվի: Երկխոսության տուփ կբացվի՝ հիշեցնելու համար, որ տեղադրեք ծննդյան ողջույնները, ինչպես ցույց է տրված հետևյալ սքրինշոթը.

7. Այնուհետեւ կտտացրեք OK կոճակը, ողջույնի նամակը ավտոմատ կերպով կուղարկվի այն կոնտակտին, ում ծննդյան օրն է այսօր:

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ Pro: Խմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

Կարդալ ավելին       Անվճար ներբեռնում      Ձեռք բերել