Vcard İçin Uyarlama

1 2
30/08/2018, 02:41

access acemisi

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


31/08/2018, 14:08

ozanakkaya

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.
01/09/2018, 11:54

access acemisi

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
01/09/2018, 17:03

access acemisi

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
02/09/2018, 11:54

access acemisi

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

02/09/2018, 12:24

access acemisi

(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
1 2