Jeśli chcesz utworzyć nową wiadomość e-mail i dołączyć do niej wszystkie załączniki z kilku innych wiadomości e-mail, możesz skorzystać z metody przedstawionej w tym artykule. Nauczy Cię korzystania z VBA, aby uzyskać to jak bryza.
Czasami może być konieczne skopiowanie wsadowo wszystkich załączników z wielu wiadomości e-mail do nowej wiadomości e-mail. Oczywiście możesz to zrobić ręcznie, po prostu zapisując je najpierw na dysku lokalnym, a następnie dołączając je pojedynczo do nowo utworzonej wiadomości e-mail. Jednak najwyraźniej w ten sposób będzie to dość żmudne zadanie. Dlatego dlaczego nie wykorzystasz VBA, aby szybko to zrealizować? Poniżej przedstawimy Ci skomplikowane operacje i odpowiadające im kody VBA.
Zbiorcze kopiowanie wszystkich załączników z wielu wiadomości e-mail do nowej wiadomości e-mail
- Na wstępie start program Outlook jak zwykle.
- Następnie w głównym oknie Outlooka naciśnij klawisze „Alt + F11”.
- W kolejnym oknie „Microsoft Visual Basic for Applications” wstaw nowy moduł lub otwórz moduł, który nie jest używany.
- Następnie skopiuj i wklej następujące kody VBA do takiego modułu.
Sub NewEmailwithAttachmentsinSeveralEmails()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim objFileSystem As Object
Dim strFilePath As String
Dim objNewMail As Outlook.MailItem
Set objSelection = Outlook.Application.ActiveExplorer.Selection
Set objNewMail = Outlook.Application.CreateItem(olMailItem)
On Error Resume Next
For Each objMail In objSelection
For Each objAttachment In objMail.attachments
'Save all the attachments to temporary folder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
objAttachment.SaveAsFile (strFilePath)
'Add the attachments to the new email
objNewMail.attachments.Add (strFilePath)
'Delete the temporary files
objFileSystem.DeleteFile (strFilePath)
Next
Next
'Show the new email
objNewMail.Display
End Sub
- Następnie należy przystąpić do dodawania nowego projektu VBA do paska narzędzi szybkiego dostępu. Możesz to zrobić w „Opcjach Outlooka”.
- Później powinieneś zmienić poziom bezpieczeństwa makr programu Outlook na niski.
- Wreszcie możesz spróbować.
- Najpierw naciśnij klawisz „Ctrl” i wybierz kilka e-maili, których załączniki chcesz skopiować.
- Następnie naciśnij przycisk nowego makra na pasku narzędzi szybkiego dostępu.
- Natychmiast pojawi się nowa wiadomość e-mail z załączonymi wszystkimi załącznikami.
Rzuć wyzwanie częstym problemom z plikiem PST w programie Outlook
Ponieważ problemy z plikiem PST w programie Outlook mogą występować od czasu do czasu, należy poświęcić dużo wysiłku, aby zabezpieczyć dane PST. Na przykład lepiej regularnie tworzyć kopie zapasowe danych PST, aby móc odzyskać plik uszkodzony Outlook dane z kopii zapasowych bez wysiłku. Co więcej, musisz mieć w pobliżu renomowane narzędzie, takie jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com