Gelen bir epostayı yanıt ya da tümünü yanıtla (Reply / ReplyAll) seçeneği ile yanıtladığınızda tek bir adresten yanıtlanmasını sağlamak.

Selam arkadaşlar,

Gelen bir epostayı yanıt ya da tümünü yanıtla (Reply / ReplyAll) seçeneği ile yanıtladığınızda tek bir adresten yanıtlanmasını sağlamak için aşağıdaki macroları kullanabilirsiniz.

———————————————-

REPLY

Public Sub New_Reply()

Dim oAccount As Outlook.Account

Dim oMail As Outlook.MailItem

For Each oAccount In Application.Session.Accounts

If oAccount = “the_email_account_name” Then

Set oMail = Application.ActiveExplorer.Selection(1).Reply

oMail.SendUsingAccount = oAccount

oMail.Display

End If

Next

End Sub

——————————————————–

REPLYALL

Public Sub New_Reply()

Dim oAccount As Outlook.Account

Dim oMail As Outlook.MailItem

For Each oAccount In Application.Session.Accounts

If oAccount = “the_email_account_name” Then

Set oMail = Application.ActiveExplorer.Selection(1).Replyall

oMail.SendUsingAccount = oAccount

oMail.Display

End If

Next

End Sub

Makale ile ilgili görüş, öneri ve yardım taleplerini bilgi@cangunes.com adresinden bana e-posta olarak iletebilirsiniz. Bana e-posta olarak gönderdiğiniz sorulara elimden geldiğince cevap vermeye çalışacağım. Yoğun olarak çalıştığım için farklı kanallardan ulaştırdığınız sorularınızı maalesef cevaplayamayacağım.