Access에서 Outlook 메일 그룹 만들기

Question

연락처 정보 테이블과 범주 테이블이있는 Access 데이터베이스가 있습니다. 연락처가 카테고리에 추가됩니다. 연락처 및 VBA를 사용하여 메일 그룹으로 Outlook으로 내보내려고합니다.

첫 번째 단계 (연락처 설정)가 작동합니다. 내 문제는 메일 그룹을 만드는 것입니다. 나는 단지 작은 숫자 (아마 5 %)가 실제로 정확하게 해결한다는 것을 안다. 나는 해결하지 못했던 사람들과 그렇지 못한 사람들 사이에 명백한 차이가없는 것 같아서 왜 일을 해낼 수 없습니다.

첨부 코드에서 관련 하위 항목은 CreateDLs입니다. olRecipients에 이메일 주소를 추가하면 모든 것이 해결되지만 이름과 이메일 주소가 동일한 목록 만 남게됩니다. 대부분의 사람들의 이메일 주소가 그들이 누구인지 알려주기 때문에 일시적으로 사용할 수 있습니다. 그러나 이름으로 주석을 추가하려고 시도하면 소수만 해결되지만 ExportAccessContactsToOutlook 루틴을 통해 방금 생성되었습니다.

나는 olRecipient를 통해 한 번에 하나씩 추가하려고 시도했지만 동일한 결과를 얻었으므로 한 번에 여러 개를 추가하기 때문에 보이지 않습니다.

아무도 무슨 일이 일어나고 있는지 제안 할 수 있습니까?

이름을 제공하지 않고 한 번에 전체 연락처 항목을 추가하고 올바르게 해결할 수있는 방법이 있습니까?

내 코드를 올바르게 붙여 넣으려고 애쓰는 중 일부만 코드로 인식되는 것 같습니다. 나는 {} (CNTRL/K) 바로 가기와 붙여 넣기를 사용하지만 큰 섹션은 코드 창에서 끝나지 않으며 제대로 포맷되지 않았다. 나는 그것을 VB 창에서 곧바로 들어 올리고있다.

Answer 1

연락처가 주소록으로 표시되도록 구성된 Outlook 폴더에 추가되어 있는지 확인해야합니다.

또한 이름이 고유해야합니다. 그렇지 않으면 모호한 이름 오류가 발생합니다. Redemption를 사용하는 옵션이

경우, 직접 RDODistListItem .AddContact를 사용하여 배포 목록에 연락처를 추가 할 수있는 이름을 확인 할 필요가 없다. 줄을 따라 무엇인가 :

set Session = CreateObject("Redemption.RDOSession") 
    Session.MAPIOBJECT = Application.Session.MAPIOBJECT 
    set Contacts = Session.GetDefaultFolder(olFolderContacts) 

    set Contact = Contacts.Items.Add("IPM.Contact") 
    Contact.FirstName = "Joe" 
    Contact.FirstName = "User" 
    Contact.Email1Address = "joe@demo.com" 
    Contact.Save 

    set DL = Contacts.Items.Add("IPM.DistList") 
    DL.DLName = "Redemption test" 
    DL.AddContact Contact 
    DL.Save