Outlook (2003) 연락처를 수정하는 스크립트

StackOverflow https://stackoverflow.com/questions/1209369

문제

나는 내 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
라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top