날자별

2012 8월
 12345
6789101112
13141516171819
20212223242526
2728293031  

outlook내 icloud내 연락처의 표시방법 변경

[vb]Sub 표시방법변경()

Dim objOL As Outlook.Application Dim objNS As Outlook.NameSpace Dim objContact As Outlook.ContactItem Dim objItems As Outlook.Items Dim objContactsFolder As Outlook.MAPIFolder Dim objICloudFolder As Outlook.MAPIFolder Dim obj As Object Dim strFirstName As String Dim strLastName As String Dim strName As String

On Error Resume Next

Set objOL = CreateObject(“Outlook.Application”) Set objNS = objOL.GetNamespace(“MAPI”) Set […]