Добрый день!
Есть вот такой макрос(нарыл на просторах инета, чуть поменял его, сам особо в них не понимаю), по сути он делает пересылку письма, но при этом все адресаты которые там были, перемещаются в копию.
Хотел бы, чтобы при пересылке чрез него, еще в теле письма сразу текст определенный вставлялся. Подскажите, куда и что добавляется?
Есть вот такой макрос(нарыл на просторах инета, чуть поменял его, сам особо в них не понимаю), по сути он делает пересылку письма, но при этом все адресаты которые там были, перемещаются в копию.
Хотел бы, чтобы при пересылке чрез него, еще в теле письма сразу текст определенный вставлялся. Подскажите, куда и что добавляется?
Код |
---|
Public Sub ReplyToAllWithAttachment() Dim strRecip As String Dim objMsg, oMail As MailItem Dim user As String ' For a reply or reply all, replace forward with Reply or ReplyAll Set objMsg = ActiveExplorer.Selection.Item(1).Forward If TypeName(ActiveExplorer.Selection.Item(1)) = "MailItem" Then Set oMail = ActiveExplorer.Selection.Item(1) On Error Resume Next user = Application.Session.CurrentUser For Each Recipient In oMail.Recipients If Recipient = user Then GoTo 1: Else strRecip = Recipient.Address & ";" & strRecip End If 1: Next Recipient objMsg.CC = strRecip & ";" & oMail.SenderEmailAddress objMsg.Display End If Set objMsg = Nothing End Sub |