運行腳本以附加電子郵件的主題和正文

Question

我 [試圖] 學習如何在 Outlook 中編寫一個腳本，當在電子郵件上設置某個類別時：

用“PROJ=5”附加主題
在正文中添加大約 10 行文本
發電子郵件。

我的目標是用類別標記電子郵件並將電子郵件轉發到我們的票務系統。

我對我找到的樣本並不抱有任何運氣。

我嘗試過的示例（URL）（復制代碼並更新相關字段）：

slipstick.com
social.technet.microsoft.com

Answer 1

用“PROJ=5”附加主題

MailItem.Subject Property返回一個字符串，指示 Outlook 項目。 讀/寫。

例子

Item.Subject = "PROJ=5" & Item.Subject

在正文中添加大約 10 行文本

例子

Dim olBody As String
olBody = "<HTML><BODY><P>Append the Body with about 10 lines of text</P>" & vbNewLine & vbNewLine & _
                     "<P>Append the Body with about 10 lines of text</P></HTML></BODY>" & vbNewLine

 olForward.HTMLBody = olBody & vbCrLf & olForward.HTMLBody

發送/轉發電子郵件

例子

'// 
Set olForward = Item.Forward
'// add Recipent
olForward.Recipients.Add "email@domain.com"
'// Send or your use .Dispaly 
olForward.Send

運行腳本規則

要使用Rule Wizard ，您的宏必須具有預期的參數：

例子

Public Sub ItemForward(Item As Outlook.MailItem)

End Sub

MSDN Outlook 2010 VBA 中的有用文章

在Outlook 2010 VBA上完成代碼測試

請確保您的參考資料設置為運行動作腳本（工具 > 參考資料）

Option Explicit
'// Run Action Script

Public Sub ItemForward(Item As Outlook.MailItem)
    Dim olApp As Outlook.Application
    Dim olForward As MailItem
    Dim olBody As String

    Set olApp = CreateObject("Outlook.Application")

    '// Append the Subject
    Item.Subject = "PROJ=5 " & Item.Subject
    Item.Save

     Set olForward = Item.Forward
    '// add Recipent
    olForward.Recipients.Add "Test@mail.com"


    olBody = "<HTML><BODY><P>Append the Body with about 10 lines of text</P>" & vbNewLine & vbNewLine & _
                         "<P>Append the Body with about 10 lines of text</P>" & vbNewLine & _
                         "<P>Append the Body with about 10 lines of text</P>" & vbNewLine & _
                         "<P>Append the Body with about 10 lines of text</P>" & vbNewLine & _
                         "<P>Append the Body with about 10 lines of text</P>" & vbNewLine & _
                         "<P>Append the Body with about 10 lines of text</P>" & vbNewLine & _
                         "<P>Append the Body with about 10 lines of text</P>" & vbNewLine & _
                         "<P>Append the Body with about 10 lines of text</P>" & vbNewLine & _
                         "<P>Append the Body with about 10 lines of text</P>" & vbNewLine & _
                         "<P>Append the Body with about 10 lines of text</P></HTML></BODY>" & vbNewLine


    '// Forward Email
    olForward.HTMLBody = olBody & vbCrLf & olForward.HTMLBody
    '// Send or your use .Dispaly
    olForward.Send
    Set olApp = Nothing
    Set olForward = Nothing
End Sub

運行腳本以附加電子郵件的主題和正文

問題描述

1 個解決方案

解決方案1
0 2015-06-15 08:15:11

運行腳本以附加電子郵件的主題和正文

問題描述

1 個解決方案

解決方案1 0 2015-06-15 08:15:11

解決方案1
0 2015-06-15 08:15:11