Outlook İmza Sorunu

[accilisse]

Merhaba,
Excel den otomatik olara mail gönderdiğim bir makrom var. Ben bu makroma outlookda oluşturduğum imzamıda eklemek istiyorum.
Bir türlü beceremedim.
Yardım rica ediyorum.


Sub mail()
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olTaskItem)
With myItem
.To = "deneme@deneme.com"
.Subject = "Deneme"
.send
End With
Set ol = Nothing
End Sub

 

[accilisse]

merhaba,
konuylailgili yardımcı olabilecek bir arkadaş yok mu?

 

[accilisse]

yardım rica ediyorum

 

[Recep İpek]

Aşağıdaki linkler belki size fikir verebilir.

http://www.rondebruin.nl/mail/folder3/signature.htm

http://www.excel.web.tr/f48/outlook-makrosu-ve-otomatik-imza-hakkynda-yardym-t53234.html

 

[accilisse]

Sayın Recep bey,
Verdiğimiz örnekler için çok teşekkür ederim.
çok işime yarayacak

 

[accilisse]

Recep bey,
Yeni konu açmadan devam etsem bir sıkıntı olmaz umarım.
Mesela Outlookda kurulu 2 adet hesabım olsa, 1@deneme.com ve 2@deneme.com gibi
Hangi hesapdan mail göndermesi gerektiğini hangi komutla istiyoruz.
Yani bazı kişilere 1@deneme.com adresinden gönderirken, başka kişilere 2@deneme.com adresinden otomatik mail gönderecek.
Yardımcı olursanız çok sevinirim.



Sub mail()
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olTaskItem)
With myItem
.To = "deneme@deneme.com"
.Subject = "Deneme"
.send
End With
Set ol = Nothing
End Sub

 

[accilisse]

konuyla ilgili yardımcı olabilecek kimse yokmu?

 

[moneyhoney]

İmza Ekleyebilmek için önce
iki nesne tanımlaman lazım
Dim Signature, MS As Object

Daha Sonra imzanı gerekli adress'ten çekmelisin
If Dir("C:\...\Mehmet.htm") = "" Then
MsgBox "C:\...\İmza.htm" & " dosyası bulunamadı..."
Exit Sub
End If
Ve Nesneleri Oluşturmalısın
Set MS = CreateObject("Scripting.FilesystemObject")
Set Signature = MS.OpenTextFile("C:\...\Mehmet.htm", 1)
Daha Sonra Aşağıdaki Kodu Kullanarak İmzanı eklemen lazım
.HTMLBody = .HTMLBody & "<br><br><br>" & Signature.ReadAll