새 이메일을 작성하고 다른 여러 이메일의 모든 첨부 파일을 새 메일에 추가하려면이 기사에서 소개 한 방법을 사용할 수 있습니다. VBA를 사용하여 산들 바람처럼 얻는 방법을 알려줍니다.
때때로 여러 이메일의 모든 첨부 파일을 새 이메일로 일괄 복사해야 할 수 있습니다. 물론 로컬 드라이브에 먼저 저장 한 다음 새로 생성 된 이메일에 하나씩 첨부하기 만하면 수동으로 수행하도록 선택할 수 있습니다. 그러나 분명히 이것은 매우 지루한 작업이 될 것입니다. 따라서 VBA를 사용하여 신속하게 실현하지 않는 이유는 무엇입니까? 다음에서는 정교한 작업과 해당 VBA 코드를 공개합니다.
여러 이메일의 모든 첨부 파일을 새 이메일로 일괄 복사
- 처음에는 start 평소와 같이 Outlook 프로그램.
- 다음으로 기본 Outlook 창에서 "Alt + F11"키 버튼을 누릅니다.
- 다음 "Microsoft Visual Basic for Applications"창에서 새 모듈을 삽입하거나 사용하지 않는 모듈을 엽니 다.
- 그런 다음 다음 VBA 코드를 복사하여 이러한 모듈에 붙여 넣습니다.
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
- 그런 다음 새 VBA 프로젝트를 빠른 실행 도구 모음에 추가해야합니다. "Outlook 옵션"에서 완료 할 수 있습니다.
- 나중에 Outlook 매크로 보안 수준을 낮음으로 변경해야합니다.
- 마지막으로 시도해 볼 수 있습니다.
- 먼저 "Ctrl"키를 누르고 첨부 파일을 복사하려는 여러 이메일을 선택합니다.
- 그런 다음 빠른 실행 도구 모음에서 새 매크로 버튼을 누르십시오.
- 즉시 모든 첨부 파일이 첨부 된 새 이메일이 나타납니다.
잦은 Outlook PST 문제 해결
Outlook PST 문제가 때때로 발생할 수 있으므로 PST 데이터를 보호하기 위해 많은 노력을 기울여야합니다. 예를 들어 PST 데이터를 정기적으로 백업하는 것이 좋습니다. 손상된 Outlook 땀을 흘리지 않고 백업 데이터. 또한 근처에 평판 좋은 도구를 두어야합니다. DataNumen Outlook Repair.
저자 소개 :
Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. mdf 수리 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM