Ako rýchlo pridať e-mailový podpis do kontaktných údajov odosielateľa pomocou aplikácie Outlook VBA

Keď dostanete e-mail s podrobným podpisom, môžete ho pridať ku kontaktu príslušného odosielateľa. Ručné kopírovanie a vkladanie je časovo náročné. V tomto článku vám teda pomôžeme dosiahnuť to pomocou aplikácie Outlook VBA.

Bez akýchkoľvek pochybností ste už určite dostali také e-maily, ktoré v podpise obsahujú podrobné informácie o odosielateľoch. V tom čase možno budete chcieť pridať podrobnosti k príslušnému kontaktu. Všeobecne platí, že bez ďalšej pomoci budete musieť vyhľadať všetky svoje kontakty, aby ste našli ten správny, a potom skopírovať podpis do jeho tela. Bude to dosť nepríjemné. Našťastie si to môžete uvedomiť cez Outlook VBA, ktorý je oveľa rýchlejší. Tu sú prepracované operácie a súvisiace kódy VBA.

Pridajte e-mailový podpis k kontaktným údajom odosielateľa

1. V prvom rade by ste mali start Outlook.
2. Potom prepnite na kartu „Vývojár“ a kliknite na tlačidlo „Visual Basic“.
3. V novom vyskakovacom okne musíte otvoriť nový modul. Potom zvoľte „Vložiť“> „Modul“.
4. Následne by ste mali skopírovať a vložiť nasledujúce kódy do nového modulu.

Sub AddSignaturetoContact () Dim olItem As Outlook.MailItem Dim olInspector As Outlook.Inspector Dim objDoc As Word.Document Dim objWord As Word.Application Dim objSel As Word.Selection Dim Signature As String Dim olContacts As Outlook.Iems Dim objVariant As Variant Dim i As Long Dim strBody As String Set olItem = Outlook.Application.ActiveInspector.CurrentItem If olItem.Class = olMail Then 'Select the signature Set olInspector = olItem.GetInspector If olInspector.EditorType = olEditorWord Then Set objDoc = olInspector.WordEditorD objWord .Application Set objSel = objWord.Selection Signature = objSel.Text Set olContacts = Outlook.Application.Session.GetDefaultFolder (olFolderContacts) .Položky „Prejdite všetky existujúce kontakty a nájdite zodpovedajúci kontakt“ A potom k nim pridajte podpis For i = 1 To olContacts.Count If olContacts.Item (i) .Class = olContact Then Set objVariant = olContacts.Item (i) If objVariant.Email1Address = olItem.SenderEmailAddress Then strBody = ob jVariant.Body S objVariant .Body = strBody & vbCrLf & "----- Z podpisu -----" & vbCrLf & vbCrLf & podpisu. Uložiť. Zobraziť Koniec Koniec Ak Koniec Ak Ďalej Koniec Ak Koniec Ak Koniec Sub

5. Potom môžete opustiť aktuálne okno a potom otvoriť e-mail.
6. Potom kliknite na šípku nadol na paneli s nástrojmi Rýchly prístup v okne aktuálnej správy a vyberte možnosť „Viac príkazov“.
7. Ďalej v nasledujúcom okne by ste mali pridať nové makro na panel s nástrojmi Rýchly prístup.
8. Po dokončení všetkých vyššie uvedených krokov môžete konečne vyskúšať.

• Najskôr otvorte e-mail, ktorého podpis chcete pridať ku kontaktu.
• Potom vyberte všetky texty v podpise a kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup, napríklad na nasledujúcom obrázku:
• Aplikácia Outlook okamžite start vyhľadať všetky kontakty v predvolenom priečinku kontaktov. Po nájdení program Outlook pridá podpis do svojho tela a zobrazí ho, pozrite sa na nasledujúcu snímku obrazovky:

Riešenie únavných problémov s programom Outlook

Ako viete, Outlook je náchylný na chyby, aj keď sa môže pochváliť viacerými funkciami. Preto, aby ste udržali svoje údaje programu Outlook v dobrom stave, radšej sa nespoliehajte na nástroj na opravu doručenej pošty. Musíte zohnať významnejšiu osobu poškodený nástroj na opravu PST, Ako sú DataNumen Outlook Repair, ktoré môžu vyriešiť extrémne problémy, ktoré prekročili kapacitu programu Scanpst.exe

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť poškodený SQL mdf db a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S