Hvordan raskt pakke og legge ved flere kontakter til en Outlook-e-post

Hvis du trenger å sende et stort antall kontakter til noen via e-post, kan det være lurt å pakke og komprimere disse kontaktene til en zip fil. I denne artikkelen vil vi introdusere en rask metode for deg.

Noen ganger kan du bli bedt om å videresende flere kontakter til noen via e-post. I dette tilfellet, hvis det er hundrevis av kontakter som skal sendes, kan det være lurt å pakke og legge dem ved som en zip fil til en e-post, i stedet for å legge dem ved separat til en e-post. Så her vil vi dele et raskt middel med deg.

Pakk og legg ved flere kontakter til en e-post

1. For somtart, start Outlook-applikasjonen.
2. Deretter utløser du Outlook VBA-editor i henhold til "Hvordan kjøre VBA-kode i Outlook".
3. Deretter legger du følgende kode inn i en ubrukt modul.

Sub PackAttachMultipleContactsToEmail() Dim objSelection As Outlook.Selection Dim objItem As Object Dim objContact As Outlook.ContactItem Dim strFullName As String Dim varTempFolder As Variant Dim varZipFil som variant Dim objShell As Object Dim objFileSystem As Object Dim objMail As Outlook.MailItem 'Få de valgte kontaktene Sett objSelection = Outlook.Application.ActiveExplorer.Selection Hvis ikke (objSelection er ingenting) Så 'Opprett en midlertidig mappe varTempFolder = "E: \TempContacts" & Format(Nå, "YYMMDDHHMMSS") MkDir (varTempFolder) varTempFolder = varTempFolder & "\" 'Lagre hver kontakt som vCard-fil for hver objItem I objSelection If TypeOf objItem Is ContactItem Then Set objContem strFullName = objFullItem = objFullName objContact.SaveAs varTempFolder & strFullName & ".vcf", olVCard End If Next 'Create a ZIP fil varZipFile = "E:\Contacts.zip"Åpne varZipFil for utdata som #1 Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Lukk #1 'Legg til de eksporterte vcard-filene til de ZIP file Set objShell = CreateObject("Shell.Application") objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items on Error Fortsett Neste Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count Application.Wait (Now + TimeValue("0:00:01")) Loop On Error GoTo 0 Sett objFileSystem = CreateObject("Scripting.FileSystemObject") objFileSystem.DeleteFolder Left(varTempFolder, Len(varTempFolder) - 1) 'Legg ved zip fil til den nye e-posten Sett objMail = Application.CreateItem(olMailItem) objMail.Attachments.Add varZipFil objMail.Vis End If End Sub

4. Deretter legger du til denne makroen på verktøylinjen eller båndet for hurtigtilgang.
5. Til slutt, ta trinnene nedenfor for å prøve.

• Frist off, velg kontaktene du vil ha.
• Deretter trykker du på makroknappen i hurtigtilgangsverktøylinjen eller båndet.
• Med en gang vil en ny e-post vises, der du kan se den vedlagte zip fil kalt "Kontakter", som vist i følgende figur.

Forbered et kraftig PST Fix Tool

Siden Outlook-datafilen er utsatt for korrupsjon, må du lære noen måter å gjøre det på fikse PST fil. Først kan du prøve Scanpst, reparasjonsverktøyet for innboks. Men i tilfelle alvorlig PST-skade, må du ty til et mer robust verktøy, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette Sql Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med