Salam sejahtera,
Saya ingin masukkan dari rekan-rekan sekalian mengenai pembuatan contact
di outlook dengan menggunakan VB.
Di tempat saya bekerja, ada beberapa team sales yang masing-masing
memiliki email, contact, calendar & tasks yang sepenuhnya di sharing
kepada office manager yang bertujuan untuk melihat aktifitas, menambah
data prospect, dll. Untuk email sendiri menggunakan exchange 2000.
Yang menjadi pertanyaan saya adalah, saat ini saya sedang membuat suatu
program kecil yang mana bila office manager memasukkan data kartu nama
maka akan langsung masuk ke dalam database dan contact di outlook
berdasarkan nama salesnya. Namun untuk membuat data contact baru di
outlook selalu gagal dalam arti, form contact sudah berhasil di buat
namun pada saat saving ke sales yang di tuju selalu gagal.
Sedangkan untuk condingnya saya menggunakan:
Dim oOutlook As Outlook.Application
Dim oContact As Outlook.ContactItem
Set oOutlook = New Outlook.Application
Set oContact = oOutlook.CreateItem(olContactItem)
With oContact
.FullName = Combo2.Text & " " & Text2.Text
.CompanyName = Combo3.Text & " " & Text8.Text & Combo4.Text
.BusinessAddress = Text9.Text & vbCrLf & Text10.Text & vbCrLf &
Text11.Text
.BusinessAddressState = Text12.Text
.BusinessAddressPostalCode = Text13.Text
.BusinessTelephoneNumber = Text14.Text & " - " & Text15.Text
.Business2TelephoneNumber = Text16.Text & " - " & Text17.Text
' .BusinessFaxNumber = Text18.Text & " - " & Text19.Text
.MobileTelephoneNumber = Text6.Text
.Email1Address = Text7.Text
.WebPage = Text24.Text
.SaveAs
"00000000A7C5C306C0AA6B4C9A393C718963646A010058E24B5B63A2EC45B87EF926157
FEB660000000A3D540000"
End With
MsgBox "Contact has been Added", vbInformation
Set oOutlook = Nothing
Angka pada saveas
"00000000A7C5C306C0AA6B4C9A393C718963646A010058E24B5B63A2EC45B87EF926157
FEB660000000A3D540000" saya dapatkan dari address di outlook sendiri dan
address ini dari sales yang bernama Andi.
Mohon bantuannya & terima kasih.
Didi
[Non-text portions of this message have been removed]
