Outlook-da xüsusi e-poçt göndərərkən tez-tez xüsusi faylları əlavə etməlisiniz? Əgər belədirsə, onları hər dəfə əl ilə əlavə etmək yorucu ola bilər. Bu məqalə sizə Outlook VBA ilə nail olmağın sürətli üsulunu öyrədəcək.
Gündəlik işlərimdə məndən tez-tez xüsusi e-poçt göndərərkən xüsusi faylları əlavə etməyi tələb edirlər. Məsələn, hər həftə rəhbərlərimə e-məktub göndərməliyəm ki, həftəlik işim barədə hesabat verəcəm. Bu e-poçtda mənə bəzi xüsusi fayllar, o cümlədən iş qeydləri, bəzi məlumat statistik hesabatları və s. əlavə etməliyəm. Mən adətən bu faylları hər həftə yeniləyirəm. Əvvəllər mən adətən əvvəlcə mesajın mətnini tərtib edirəm və sonra bu faylları əl ilə əlavə edirəm. Ancaq hazırda daha ağıllı bir hiylə tapıram. Bu, onu avtomatlaşdırmaq üçün Outlook VBA-dan istifadə edir. Bənzər tələbləriniz varsa, konkret VBA kodları və ətraflı əməliyyatları öyrənmək üçün oxuyun.
Xüsusi e-poçt göndərərkən xüsusi faylları avtomatik əlavə edin
- Başlamaq üçün Outlook-u işə salın və "Geliştirici" sekmesine keçin.
- Sonra VBA redaktoru pəncərəsini bir anda çıxaracaq "Visual Basic" düyməsini tapıb klikləyə bilərsiniz.
- Sonrakı pəncərədə, sol tərəfdəki layihə siyahısında "ThisOutlookSession" layihəsinə iki dəfə klik etməlisiniz.
- Sonra aşağıdakı VBA kodlarını kopyalayıb ona yapışdırmalısınız.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strPrompt As String
Dim nRes As Integer
'Check the email subject and recipient
If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
strPrompt = "Do you want to attach the worklog related files?"
nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
If nRes = vbYes Then
'Attach the specific files
With Item
.Attachments.Add ("C:\Attachments\WorkLog.docx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
End With
End If
End If
End Sub
- Bundan sonra sizdən yeni layihəyə rəqəmsal sertifikat təyin etməniz tələb olunacaq.
- Əvvəlcə alətlər panelində "Alət" düyməsini basın və "Rəqəmsal İmza" seçin.
- Sonra açılan “Rəqəmsal İmza” informasiya qutusunda “Seç” düyməsini sıxın,
- Sonradan mövcud sertifikatı seçə bilərsiniz.
- Nəhayət, onu uğurla təyin etmək üçün bir sıra "OK" düyməsini basın.
- Daha sonra sadəcə rəqəmsal imzalanmış makrolara icazə vermək üçün makro parametrlərini dəyişdirməlisiniz.
- Nəhayət, bir cəhd edə bilərsiniz.
- Mövzuda xüsusi sözləri ehtiva edən və ya konkret kontakta göndərilən xüsusi məktubu göndərmək üçün “Göndər” düyməsini kliklədiyiniz zaman aşağıdakı şəkildəki kimi mesaj qutusu görəcəksiniz.
- Bundan sonra göndərilən e-poçtu yoxlaya bilərsiniz. Siz, şübhəsiz ki, göndərilən məktubda əvvəlcədən təyin edilmiş faylları tapacaqsınız.
Heç vaxt Outlook xətalarının düzəldilməsini təxirə salmayın
Bəzən Outlook-da xəta mesajı ilə qarşılaşsanız belə, mesajı bağladıqdan sonra hələ də işləməyə davam edə bilərsiniz. Amma əslində bu, məqsədəuyğun bir hərəkət deyil. Etməli olduğunuz şey, onları bir kənara qoymaq əvəzinə, mümkün qədər tez aradan qaldırmaqdır. Problemlərin yığılması ciddi qəza ilə nəticələnəcək. Outlook qəzaya uğrayarsa, Outlook PST məlumatlarınız risk altında olacaq. Bunu bilməlisən zədələnmiş Outlook PST məlumatları nisbətən düyünlüdür. O zaman sizin kimi təcrübəli və nüfuzlu təmir alətindən istifadə etməkdən başqa seçiminiz yoxdur DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş təmir SQL Server fayl və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com