Merhaba, "önceden çözümlenmiş" diye belirttiğiniz uygulamada kodlar mevcut. "Çözüm Bekleyen" diye belirttiğiniz uygulamada bir tane bile kod yok.

Siz birşeyler yapın, takıldığınız yeri sorun.

ts.WriteLine "BEGIN:VCARD"

    ts.WriteLine "VERSION:3.0"

    ts.WriteLine "N:" & Me.mtn_soyadi & ";" & Me.mtn_adisoyadi & ";" & Me.mtn_ikinciadi & ";" & Me.acl_unvani

    ts.WriteLine "FN:" & Me.mtn_adisoyadi & " " & Me.mtn_soyadi

    ts.WriteLine "ORG:" & Me.mtn_sirketbilgisi

    ts.WriteLine "TITLE:" & Me.mtn_isunvani

    ts.WriteLine "PHOTO;TYPE=JPEG;ENCODING=B:" & Replace(EncodeBase64(image_bin), vbLf, vbCrLf & Space(1))

    ts.WriteLine "TEL;WORK;VOICE:" & Me.mtn_istelefonu

    ts.WriteLine "TEL;HOME;VOICE:" & Me.mtn_evtelefonu

    ts.WriteLine "TEL;CELL;VOICE:" & Me.mtn_ceptelefonu

    ts.WriteLine "ADR;WORK:" & Me.mtn_isadresi & ";" & _

                Me.mtn_issehir & ";" & Me.mtn_ispostakodu & ";" & Me.mtn_isulke

    ts.WriteLine "ADR;HOME:" & Me.mtn_evadresi & ";" & _

                Me.mtn_evsehir & ";" & Me.mtn_evpostakodu & ";" & Me.mtn_evulke

    ts.WriteLine "X-MS-OL-DEFAULT-POSTAL-ADDRESS:1"

    ts.WriteLine "EMAIL;PREF;INTERNET:" & Me.mtn_epostaadresi

    ts.WriteLine "URL;WORK:" & Me.mtn_websayfasi

    ts.WriteLine "NOTE:" & Me.mtn_notlar

    ts.WriteLine "BDAY:" & Format(Me.mtn_dogumtarihi, "yyyy-mm-dd")

    ts.WriteLine "REV:" & Format(Date, "yyyymmdd") & "T" & Format(Now(), "hhnnss") & "Z"

    ts.WriteLine "END:VCARD"

Örnekte yukarıdaki kodlar mevcut. Buradaki kalıbı bozmamak şartıyla, istediğiniz veriyi kalıba aktarabilirsiniz. Kod içerisindeki Me.mtn_soyadi kodu formdaki soyadı alanı, sizin formunuzda soyadı alanı metin kutusunun adı ne ise onu yazacaksınız.