Outlook (2003) 연락처를 수정하는 스크립트
-
06-07-2019 - |
문제
나는 내 Outlook 2003 연락처를 정리하려고 노력하고 있습니다.이 연락처는 다양한 형식 등에 다소 추악한 혼란이되었습니다.
기본적으로, 나는 다음 중 하나의 형태로 많은 연락처가 있습니다.
0xxxxxxxxx [0] 0] 0] 0] 0xxxxxxxx [0] 0] 0] 0] 0xxxxxxxx (xxxxxxx) , 등
모든 숫자가 마지막 형식과 일치하기를 원합니다. 알고리즘은 충분히 간단합니다. 처음 두 가지 유형의 경우 0과 add +yyy가 yyy가 내 국가 코드입니다. 세 번째를 위해서는 ditto이지만 모든 것을 괄호 안에 떨어 뜨립니다.
내 문제는이 작업을 수행하는 방법을 모른다는 것입니다. 나는 Perl에서 내 인생에서 백만 개의 스크립트를 작성했지만, 모든 것을 문자로 내보내고, 처리하고, 다시 import하지는 않을 것입니다. 쉽게 다시 실행할 수있는 원 클릭 솔루션을 원합니다 (예 : 위의 양식 중 하나에 제공되는 회사 디렉토리에서 새 연락처를 가져올 때와 같은). 나는 vbscript가 갈 길이라고 생각합니다. 나는 온라인에서 연락처에 객체로 액세스하는 것에 대한 몇 가지 참조를 보았지만 시작하는 가장 좋은 방법이 무엇인지 확실하지 않습니다.
권장 리소스가 있습니까?
이것은의 복제입니다 https://superuser.com/questions/15913/script-to-modify-outlook-2003-contacts ; 어떤 사이트가 더 나은 위치인지 잘 모르겠습니다
해결책
나는 vbscript가 아닌 VBA라고 말할 것입니다.
Sub GetContactsTel()
Set oFolder = GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
' Loop through all of the items in the folder.
For i = 1 To oFolder.Items.Count
Debug.Print oFolder.Items(i).BusinessTelephoneNumber
Next
End Sub