Microsoft Outlook ta mailde beğen butonu olması

[u.L.a.s]

Merhabalar

İşyerinde Micosoft Outlook uygulaması üstünden mail kullanımı yapıyoruz.

bazen bazı maillere sadece teşekkürler diyip göndermek durumunda kalıyoruz.

Web ortamındaki outlookta gelen maile beğen butonu eklemişler ve web ortamında bunu kullanabiliyorsunuz

fakat yerel pc ortamında kullanılan microsoft outlookta bu tür bir buton henüz yok.

Acaba bunu outlook üstünden makro ile bir şeyler yazılabilir mi

en basidinden mesela yukarıdaki menüde bir buton oluşturup o butonu tıkladığımda hangi mail üstündeysem o maile geri dönüş olacak şekilde hazır bir teşekkürler maili yazılı hle getirir ve gönderir. bu şekilde de bir şeyler yapılbilir mi bilmiyorum. konuyla alakalı bilginizi rica ederim

 

[u.L.a.s]

mesela outlook üstünde yeni bir mail göndermek için outlook visualbasic arayüzünde bir modüle altına bu kodu yazdığımızda sadece belirtilen kişiye belirtilen şekilde maili otomatik gönderiyor. ben bunun gelen maili reply yaparak cevabı yapıştırıp o kişiye geri göndermesi şeklinde düzenlemek istiyorum

Sub emilgonder()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)

With NewMail
.To = "mail@mail.com"
.Subject = "deneme"
.Body = "Merhabalar bilgilendirme için teşekkürler Saygılarımızla"
.Send 'Görüntüleme'
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

 

[u.L.a.s]

şimdi bir reply emil makrosu buldum fakat burada ad soyad şeklinde göndereceğim kısma çıkıyor. yani direk email adresini to kısmına koymuyor.

Örneğin bana xxx.yyy@mail.com dan mail gelmiş ben buna geri dönüş yaparken bu makro to kısmın xxx yyy yazıyor. dış mail olunca bu maili exchange server bulamıyor tabi. haliyle gönderme işlemi olmuyor.

Sub ReplyEmailTemplate()

Dim origEmail As MailItem

Dim replyEmail As MailItem

Set origEmail = Application.ActiveWindow.Selection.Item(1)

Set replyEmail = Application.CreateItemFromTemplate("C:\Users\useradı\AppData\Roaming\Microsoft\Templates\tesekkurmail.oft")

replyEmail.To = origEmail.Sender

replyEmail.CC = origEmail.CC

replyEmail.Subject = origEmail.Subject

replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody

replyEmail.Display

End Sub

 

[necati]

Merhaba,
Paylaştığınız makro için bir düğme ekleyip istediğinizi yapabilirsiniz.
* Şerit > Özelleştir > Makrolar > İstenilen makroyu şeride sürükle bırak

Şu satır yerine
replyEmail.To = origEmail.SenderName

Şunu yazınız
replyEmail.To = origEmail.SenderEmailAddress

Yazarsanız mail adresini elde edersiniz.