로컬 폴더에서 공용/공유 폴더로 메일을 복사하십시오.

이 Outlook 매크로는 로컬 폴더에 5 개의 전자 메일이있는 경우 공용 공유 폴더로 이동하고 원래의 5 개의 전자 메일을 삭제하도록 사용자에게 요청합니다.로컬 폴더에서 공용/공유 폴더로 메일을 복사하십시오.

아래 줄에 "Operation failed"오류 메시지가 계속 나타납니다.

**Set NewFolder = myFolder.CopyTo(PblcSharedFolder)**

설명 :이 줄은 5 개의 전자 메일 폴더 전체를 복사합니다.

출처

2014-10-07 J Lee

! 는 CurrentUser의 이름과 날짜로 폴더 이름을 변경 그래서

NewFolder.Name = "_" & nameSpace.CurrentUser.Name & " " & Now

출처

2014-10-08 07:26:07 Max

그 공개/공유 폴더에 폴더를 복사 한 후 :

If result = vbYes Then Set PblcSharedFolder = nameSpace.GetDefaultFolder(olPublicFoldersAllPublicFolders) Set PblcSharedFolder = PblcSharedFolder.Folders("Subfolder") Set PblcSharedFolder = PblcSharedFolder.Folders("Public Shared Folder") Dim myCopiedItem As Outlook.MailItem For i = myFolder.Items.Count To 1 Step -1 Set myCopiedItem = myFolder.Items(i).Copy myCopiedItem.Move PblcSharedFolder myFolder.Items(i).Delete Next i Else Stop End If

나는이 줄에 무엇 정직 매우 unterstand하지로했다 . –

전자 메일뿐만 아니라 전체 폴더를 복사하려고합니다. –

로컬 폴더에서 공용/공유 폴더로 메일을 복사하십시오.

답변

관련 문제