Mohon bantuannya rekan-rekan sekalian.
Dim oOutlook As Outlook.Application
Dim oContact As Outlook.ContactItem
Set oOutlook = New Outlook.Application
Set oContact = oOutlook.CreateItem(olContactItem)
With oContact
.Title = Combo2.Text
.FullName = Text2.Text
.BusinessAddressStreet = Text9.Text & Text10.Text & Text11.Text
.BusinessAddressCity = 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
.CompanyName = Combo3.Text & Text8.Text & " " & Combo4.Text
...................................
.ForwardAsVcard.Display
End With
MsgBox "Contact has been deliver to " & Text1.Text, vbInformation
Set oOutlook = Nothing
Saya buat coding diatas fungsinya adalah untuk membuat contact di
outlook dan langsung di forward lewat email berupa VCard sehingga orang
yang dikirim bisa langsung save dan masuk ke contacnya. Namun untuk
proses keseluruhannya sudah berhasil, namun untuk mengambil alamat
e-mail untuk recipient-name selalu gagal. Untuk email address
recipient-name yang di tuju ada di combo1, dimana dan bagaimana
commandnya agar recipient-name dapat masuk ya?
Atas bantuannya saya ucapkan terima kasih.
