Just reference aja:
http://www.outlookcode.com/article.aspx?id=40
http://www.add-in-express.com/outlook-security/
On 08/06/07, Didi <[EMAIL PROTECTED]> wrote:
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.
--
Best Regard,
[zZzz]
