Script Yardımı İle User Bilgilerini Alarak Outlook ta Vcard Oluşturma

Outlook ta imza olarak ekte Vcard yollamak isteyen şirketler için vcf oluşturma scripti.

Bilgin Işık arkadaşıma katkılarından dolayı teşekkür ederim.

Set oOutlook = CreateObject(“Outlook.Application”)
Set oShell = CreateObject(“WScript.Shell”)

v = Split(oOutlook.Version, “.”)
outlook_Version = v(0) & “.” & v(1)
path = oShell.RegRead(“HKCU\Software\Microsoft\Office\” & outlook_Version & “\Outlook\Signature\”)
 
If Err.Number <> 0 Then
Err.Clear

oShell.RegWrite “HKCU\Software\Microsoft\Office\” & outlook_Version & “\Outlook\Signatures\” & “”, “”
‘Else
‘MsgBox oShell.RegRead(“HKCU\Software\Microsoft\Office\” & outlook_Version & “\Outlook\Signatures\”)
End If

oShell.RegWrite “HKCU\Software\Microsoft\Office\” & outlook_Version & “\Outlook\Signatures\” & SignName,  SignName & “_files\” & fileName

strHomeFolder = oShell.ExpandEnvironmentStrings(“%APPDATA%”)
strSignFolder = strHomeFolder & “\Microsoft\Signatures\” & SignName & “_files”

strFilename = strSignFolder & “\” & fileName

set oFS = CreateObject(“Scripting.FileSystemObject”)
set oFilevcf = oFS.CreateTextFile(strFilename & “.vcf”)

oFilevcf.Writeline “BEGIN:VCARD”
oFilevcf.Writeline “VERSION:2.1”
oFilevcf.Writeline “X-MS-SIGNATURE:YES”
oFilevcf.Writeline “N;LANGUAGE=tr;CHARSET=windows-1254:” & objUser.sn & “;” & objUser.firstname
oFilevcf.Writeline “FN:” & strName
oFilevcf.Writeline “ORG:” & objUser.company & “;” & objUser.department
oFilevcf.Writeline “TITLE:” & objUser.title
oFilevcf.Writeline “TEL;WORK;VOICE:+90 216 000 00 00 – ” & objUser.telephonenumber
oFilevcf.Writeline “TEL;WORK;FAX:+90 216 000 00 00”
oFilevcf.Writeline “ADR;WORK;PREF;CHARSET=windows-1254;ENCODING=QUOTED-PRINTABLE:;;Adres Satırı 1=0D=0A=”
oFilevcf.Writeline “Adres Staırı 2”
oFilevcf.Writeline “LABEL;WORK;PREF;CHARSET=windows-1254;ENCODING=QUOTED-PRINTABLE:Adres Satırı 1=0D=0A=”
oFilevcf.Writeline “Adres Satırı 2=0D=0A=”
oFilevcf.Writeline “Istanbul / TURKEY”
oFilevcf.Writeline “X-MS-OL-DEFAULT-POSTAL-ADDRESS:2”
oFilevcf.Writeline “URL;WORK:www.siteniz.com”
oFilevcf.Writeline “EMAIL;PREF;INTERNET:” & objUser.mail

oFilevcf.Writeline “END:VCARD”

About Tansu Ekinci

Tansu Ekinci Biyografi 1980 yılının 24 Haziran’ ında Kırklareli’nin Babaeski ilçesinde doğmuştur. İlk öğretimini Hamdihelvacıoğlu İlkokulu’nda Ortaokul ve Lise eğitimini Kırklareli Anadolu Lisesi’ nde tamamladıktan sonra Ege Üniversitesi Ege Meslek Yüksek Okulu İşletmeciliği tamamlamış ve ardından İstanbul Üniversitesi İşletme Fakültesi’ ne Dikey Geçiş Sınavı ile geçerek işletme bölümünü bitirmiştir. Eğitim hayatı boyunca bir hobi olarak orta okul son sınıfta başlayan bilgisayar merakı giderek profeyonelleşmiş ve bir yaşam biçimi haline gelmiştir. Bu sırada çeşitli tüzel kişilere hizmet sunmuş ve bunun sayesinde bilgi işlem sektörünü kendisine meslek olarak seçmiştir. Bu sırada aldığı işletme eğitiminin de kendisine ileride yöneticilik için her zaman faydalı olacağının farkında olmuş ve bu konuyada önem vermiştir. Askerliğini 2005 yılında Muğla İli Ula ilçesinde Kısa Dönem Jandarma Çavuş olarak başarı ile tamamladıktan sonra Profesyonel iş hayatına atılmış ve ilk olarak bir yazılım şirketinde Yazılım Destek Departmanında işe başlamış ve burada mevcut yazılımın kullanımı ile ilgili olarak kullanıcı desteği ve eğitimi vermiştir. Ardından Netron Corparate Solutions şirketine Sistem Mühendisi olarak girmiş buradan da Marm Assistance A.Ş.‘ne geçiş yapmıştır. Ardından bu görevinden ayrılmış ve Limango Ltd.Şti isimli şirkette aynı pozisyonda çalışmaktadır. ޞu anda halen Limango Ltd.Şti. ‘de Senior Microsoft Sistem Mühendisi olarak çalışmaktadır…
This entry was posted in Teknik and tagged , , , , , , . Bookmark the permalink.

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.