Când primiți un e-mail care conține o semnătură detaliată, poate doriți să-l adăugați la contactul expeditorului corespunzător. Copierea și lipirea manuală necesită mult timp. Deci, în acest articol, vă vom ajuta să realizați acest lucru cu Outlook VBA.
Fără îndoială, trebuie să fi primit vreodată astfel de e-mailuri care includ informații detaliate ale expeditorilor în semnătură. În acel moment, puteți spera să adăugați detalii la contactul corespunzător. În general, fără ajutoare suplimentare, va trebui să căutați toate contactele pentru a-l găsi pe cel corect și apoi să copiați semnătura în corpul acesteia. Va fi destul de supărător. Din fericire, puteți realiza acest lucru prin Outlook VBA, care este mult mai rapid. Iată operațiunile elaborate și codurile VBA aferente.
Adăugați semnătura de e-mail la detaliile de contact ale expeditorului
- În primul rând, ar trebui să start Outlook.
- Apoi treceți la fila „Dezvoltator” și faceți clic pe butonul „Visual Basic”.
- În noua fereastră pop-up, trebuie să deschideți un nou modul. Apoi selectați „Inserare” > „Modul”.
- Ulterior, ar trebui să copiați și să lipiți următoarele coduri în noul modul.
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 Dim Signature As String Dim olContacts As Outlook.Items Dim Dim objVarimant 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 = objWordInspector. .Application Set objSel = objWord.Selection Signature = objSel.Text Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items „Parcurgeți toate contactele existente pentru a găsi contactul corespunzător „Și apoi adăugați semnătura la acesta Pentru i = 1 To olContacts.Count If olContacts.Item(i).Class = olContact Then Set objVariant = olContacts.Item(i) If objVariant.Email1Address = olItem.SenderEmailAddress Then strBody = objVariant.Body With objBody &Body vVariant .CrLf . „-----From Signature-----” & vbCrLf & vbCrLf & Signature .Salvare .Afișare End With End If End If Next End If End If End Sub
- După aceea, puteți ieși din fereastra curentă și apoi deschideți un e-mail.
- Apoi faceți clic pe săgeata în jos din Bara de instrumente Acces rapid din fereastra mesajului curent și selectați „Mai multe comenzi”.
- Apoi, în fereastra ulterioară, ar trebui să adăugați noua macrocomandă la Bara de instrumente Acces rapid.
- După ce ați terminat toți pașii de mai sus, puteți încerca în sfârșit.
- Mai întâi, deschideți e-mailul a cărui semnătură intenționați să o adăugați la contact.
- Apoi selectați toate textele din semnătură și faceți clic pe butonul macro din Bara de instrumente Acces rapid, ca în imaginea următoare:
- Imediat, Outlook va start pentru a căuta toate contactele din folderul implicit de contact. După ce l-a găsit, Outlook va adăuga semnătura în corpul său și o va afișa, uitați-vă la următoarea captură de ecran:
Gestionați probleme obositoare ale Outlook
După cum știți, Outlook este predispus la erori, deși se mândrește cu mai multe funcții. Astfel, de dragul de a vă păstra datele Outlook în stare bună, ar fi bine să nu vă bazați pur și simplu pe instrumentul de reparare a căsuței primite. Trebuie să puneți mâna pe unul mai preeminent instrument de reparare PST corupt, Cum ar fi DataNumen Outlook Repair, care poate rezolva problemele extreme care au depășit capacitatea Scanpst.exe
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați SQL corupt mdf db și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com
Lasă un comentariu