'excel- tools - references bolumunden "outlook object" eklenmeli...
Sub ExcelWorkSheetToOutlookContact()
Dim app As New Outlook.Application
Dim c As Outlook.ContactItem
For r = 2 To 100 '2. satırdan, 100. satıra kadar
Set c = app.CreateItem(olContactItem)
c.FirstName = Cells(r, 1)
c.LastName = Cells(r, 2)
c.Suffix = Cells(r, 3)
c.MobileTelephoneNumber = Cells(r, 4)
c.CompanyName = Cells(r, 5)
c.Email1Address = Cells(r, 6)
c.Save
Next r
End Sub
Sub ExcelWorkSheetToOutlookContact()
Dim app As New Outlook.Application
Dim c As Outlook.ContactItem
For r = 2 To 100 '2. satırdan, 100. satıra kadar
Set c = app.CreateItem(olContactItem)
c.FirstName = Cells(r, 1)
c.LastName = Cells(r, 2)
c.Suffix = Cells(r, 3)
c.MobileTelephoneNumber = Cells(r, 4)
c.CompanyName = Cells(r, 5)
c.Email1Address = Cells(r, 6)
c.Save
Next r
End Sub