Slik legger du raskt til e-postsignaturen til avsenderens kontaktdetaljer med Outlook VBA

Når du mottar en e-post som inneholder en detaljert signatur, kan det være lurt å legge den til den korresponderende avsenderens kontakt. Å kopiere og lime inn manuelt er tidkrevende. Så i denne artikkelen vil vi hjelpe deg å oppnå det med Outlook VBA.

Uten tvil må du noen gang ha mottatt slike e-poster som inkluderer avsendernes detaljerte informasjon i signaturen. På det tidspunktet håper du kanskje å legge til detaljene til den tilsvarende kontakten. Generelt, uten ekstra hjelp, må du slå opp alle kontaktene dine for å finne den riktige og deretter kopiere signaturen til kroppen. Det vil være ganske plagsomt. Heldigvis kan du realisere det via Outlook VBA, som er mye raskere. Her er de forseggjorte operasjonene og relaterte VBA-koder.

Legg til e-postsignaturen i avsenderens kontaktinformasjon

1. For det første bør du start Outlook.
2. Bytt deretter til "Utvikler"-fanen og klikk på "Visual Basic" -knappen.
3. I det nye popup-vinduet må du åpne en ny modul. Velg deretter “Sett inn” > “Modul”.
4. Deretter bør du kopiere og lime inn følgende koder i den nye modulen.

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 Signatur As String Dim olContacts As Outlook.Items Dim objVariant As Variant Dim As Long Dim strBody As String Set olItem = Outlook.Application.ActiveInspector.CurrentItem If olItem.Class = olMail Then 'Velg signaturen Sett olInspector = olItem.GetInspector If olInspector.EditorType = olEditorWord Deretter Sett objInspectorDoc =WolEditorDoc. .Application Set objSel = objWord.Selection Signatur = objSel.Text Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items 'Gå gjennom alle eksisterende kontakter for å finne den korresponderende kontakten 'Og legg deretter signaturen til den For i = 1 Til olContacts.Count If olContacts.Item(i).Class = olContact Then Set objVariant = olContacts.Item(i) If objVariant.Email1Address = olItem.SenderEmailAddress Then strBody = objVariant.Body &BodyCrfBody With objLbodyC rf "-----Fra signatur-----" & vbCrLf & vbCrLf & Signatur .Lagre .Vis End With End If End If Next End If End If End Sub

5. Etter det kan du gå ut av det gjeldende vinduet og deretter åpne en e-post.
6. Klikk deretter på pil ned i Hurtigtilgangsverktøylinjen i gjeldende meldingsvindu og velg "Flere kommandoer".
7. Neste i det påfølgende vinduet, så bør du legge til den nye makroen til Quick Access Toolbar.
8. Etter å ha fullført alle trinnene ovenfor, kan du endelig prøve.

• Først åpner du e-posten hvis signatur du har tenkt å legge til i kontakten.
• Velg deretter alle tekstene i signaturen og klikk på makroknappen i verktøylinjen for hurtigtilgang, som følgende bilde:
• Umiddelbart vil Outlook start for å slå opp alle kontaktene i standardkontaktmappen. Etter å ha funnet den, vil Outlook legge til signaturen til kroppen og vise den, se følgende skjermbilde:

Håndter slitsomme Outlook-problemer

Som du vet, er Outlook utsatt for feil, selv om det kan skryte av flere funksjoner. Derfor, for å holde Outlook-dataene dine i god helse, bør du ikke bare stole på reparasjonsverktøyet for innboks. Du må få tak i en mer fremtredende ødelagt PST-reparasjonsverktøy, Eksempel DataNumen Outlook Repair, som kan løse de ekstreme problemene som har overskredet kapasiteten til Scanpst.exe

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparer korrupt SQL mdf db og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med