Forum
Arkadaşlar herkese kolay gelsin şirketimizdeki imzayı değiştirmek istiyorum ve resim olarak imza oluşturduk ama ne
yaparsak yapalım Outlook tanımladığımızda imzanın çözünürlüğü bozuluyor.Bunun için ne önerirsiniz html olarak yapılabiliyormuş
ama nasıl yapıldığını çözemedim imzayı sitemize yükledik ama onu nasıl html göstereceğimi ve ekliyeceğimi bulamadım
değerli tavsiyelerinize ihtiyacım var
Şimdiden Teşekkürler
Merhaba,
Bende çalıştığım şirkette yalaşık 40 kadar bilgisayarda resimli imza kullanmaktayım problem yoktur resim JPEG formatında mı birde mail alanında imza çok küçük çıkıyorsa ctrl tuşuna basılı tutup Mouse scroll tuşu ile büyütebilirmisin
Bir not defteri açın ve aşağıdakileri kopyalayarak içeriğini kendinize göre ayarlayıp imza.htm olarak kaydedin.
<br>
<br>
<strong><span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>Sinan KAHRAMAN</span></strong>
<br>
<img width=86 height=52 id="_x0000_i1025" <img src="file://Ortak/imza.jpg">
<br>
<strong><span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>ÇÖZÜM PARK</span></strong>
<br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>Açık Adres
<br>
34000 İSTANBUL
<br>
Tel : +90 212 000 00 00
<br>
Fax : +90 212 000 00 00
<br>
<a href="mailto:sinan.kahraman@cozumpark.com">sinan.kahraman@cozumpark.com</a>
<br>
<a href="http://www.cozumpark.com"> http://www. cozumpark.com</a></p> </span>
<br>
<p align="justify"><span style='font-size:6.5pt; font-family:Calibri'>Bu e-posta mesajı kişiye özel olup, gizli bilgiler
içeriyor olabilir. Eğer bu e-posta mesajı size yanlışlıkla ulaşmışsa, e-posta mesajını kullanıcıya hemen geri gönderiniz
ve mesaj kutunuzdan siliniz. Bu e-posta mesajı, hiç bir şekilde, herhangi bir amaç için çoğaltılamaz, yayınlanamaz ve
para karşılığı satılamaz. Yollayıcı, bu e-posta mesajının virüs koruma sistemleri ile kontrol ediliyor olsa bile virüs
içermediğini garanti etmez ve meydana gelebilecek zararlardan doğacak hiçbir sorumluluğu kabul etmez. Bu e-posta mesajının,
alıcı tarafından üçüncü kişilere gönderilmesinden veya alıcı veya alıcının gönderdiği üçüncü kişilerin her nevi kulanımlarından
doğacak zararlardan e-posta yollayıcısı sorumlu değildir. <br />
<br />
The information contained in this message is confidential, intended solely for the use of the individual or entity to
whom it is addressed and may be protected by professional secrecy. You should not copy, disclose or distribute
this information for any purpose. If you are not the intended recipient of this message or you receive this mail in
error, you should refrain from making any use of the contents and from opening any attachment. In that case,
please notify the sender immediately and return the message to the sender, then, delete and destroy all copies.
This e-mail message has been swept by anti-virus systems for the presence of computer viruses. In doing so,
however, we cannot warrant that virus or other forms of data corruption may not be present and we do
not take
any responsibility in any occurrence. The sender shall not be responsible for the messaging of this
e-mail to third parties and/or any kind of usage of this e-mail by the recipent or the third parties. </span> </p>
<div align="justify"></div>
</div>
</div>
</body>
</html>
Sinan bey teşekkürler ama dediklerinizi yapıyorum hatta bu videodaki gibi yaptım bende çıkmadı bişey
http://www.youtube.com/watch?v=0qvJzNeL0tk
bu kodu nasıl ekleriz
[b]#3 no[/b]'lu mesajda [b]Sinan Bey[/b]'in söylediklerini yaptıktan sonra manuel olarak makro ile mail göndermeyi ve imzayı da bu maile eklemeyi deneyelim mi ?
"[b]C:\Users\Kullanıcı_Adı\AppData\Roaming\Microsoft\Signatures[/b]" altında [b]imza.htm[/b] adında bir dosyanız olsun.
■ [b]Bu kodları kullanabilirsiniz[/b]
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
OutMail.BodyFormat = 2
With OutMail
.To = "Buraya sizin mail adresinizi yazın"
.CC = "CC ye eklemek istediğiniz adresi yazın"
.Subject = "Outlook İmza Sorunu"
Sign = ReadSignature(imza & ".htm")
.Htmlbody = "Www.CozumPark.Com & Chr(10) & Sign"
.Display
'.Send
End With
Set OutMail = Nothing: Set OutApp = Nothing
End Sub
Private Function ReadSignature(sigName As String) As String
Dim oFSO, oTextStream, oSig As Object
Dim appDataDir, sig, sigPath, fileName As String
appDataDir = Environ("APPDATA") & "\Microsoft\Signatures"
sigPath = appDataDir & "\" & sigName
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(sigPath)
sig = oTextStream.ReadAll
fileName = Replace(sigName, ".htm", "") & "_files/"
sig = Replace(sig, fileName, appDataDir & "\" & fileName)
ReadSignature = sig
End Function
Bu kodları nasıl kullancaksınız onu anlatayım:
[b]Excel[/b]'i açın ve sayfadayken [b]ALT+F11[/b] tuşlarına birlikte basın.
Açılan pencerenin üst menüsünden önce [b]Insert[/b] sonra da [b]Module[/b] seçin ve kodları açılan boş pencereye yapıştırın. Şimdi
Yukarıdaki anlatılanları uyguladıktan sonra [b]imza.htm[/b] dosyasını maildeki imza kısmında görüntülüyor olmalısın.
Hoşça kalın !