Değerli arkadaşlar
Ekte 2 dosya bulunmaktadır.
1-Birisi önceden çözümlenmiş vcard uygulama dosyası.
2-Çözüm beklediğim soru dosyası
 
Önceden vcard uygulaması yapılmış örnek uygulamayı, çözüm beklediğim Rehber isimli dosyamda  frm_kisi_kayit formunda uygulamak istiyorum.
Formda yer alan tüm kayıtlar vcard gamil butonu ve dier alanlara ait kodları uyarlamada sıkıntı yaşadım.
 
tüm kayıtlar vcard gamil butonu  ile veriler gmail adresindeki alanlara aşağıdaki şekilde gönderilmesini talep ediyorum
Örnek uygulamayı yeni dosyada uyarlamada yardımcı olursanız sevinirim.Selam saygılar
FORMDAKİ ADI
GAMAİL DEKİ ALAN
adisoyadi....Adı
ikinciadi.....İkinci Adı
sirket.........Şirket
unvani....Unvan
Cep_bir......Cep Telefonu
Cep_iki.......Diğer Telefon No
Cep_es.......Ev Faxı
tel_is.........İş telefon No1
Tel_ev.......Ev Telefonu
fax............İş faxı
Tel_farkli....İş Telefon no2
epostaadresi....E_posta adresi
Websayfasi......Websayfasi
notlar.......Notlar

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.

Değerli Üstadlarım
Vcard için 3 adet alanı ekleyecem.
ceptel_iki
ceptel_esi
santral

Bu kodu nasıl eklemem lazım.Yardımlarınızı bekliyorum

ts.WriteLine "TEL;CELL;VOICE:" & rst!ceptel_iki

bunu denedim oldu...Santral için farklı bir isim olsun isterim.  TEL;CELL;VOICE dışında  neyi denemeliyim saygılar

Aşagıdaki hata ne anlama geliyor saygılar

(31/08/2018, 14:08)ozanakkaya yazdı: Siz birşeyler yapın, takıldığınız yeri sorun.
sn hocam kendi dosyama uyarlama yaptım ama sanıyorum bir kaç hatam var