將用戶可編輯變量添加到Outlook主題字段

Question

我們的CRM需要將標籤放入由<TaskID=xxxx>或<TicketID=xxxx>組成的傳入/傳出電子郵件的主題字段中，其中xxxx是我們CRM的生成號碼。

是否有任何知道是否可以在Outlook中創建1個或2個Ribbon「按鈕」以將此標記附加到主題行。理想情況下，當您單擊此框時，我想要一個對話框出現，以便您可以輸入票據或任務ID，然後按照上面的說明將其添加到標記中。

我收集第一步很容易，但沒有大量暴露於VB意味着我有點卡住了一個對話框，然後把條目也放入主題。

任何幫助將是非常讚賞...

Answer 1

選擇郵件，然後運行該代碼：

Sub SetSubjectCRM() 

On Error GoTo ErrorHandler 

Dim obj As Object 
Dim msg As Outlook.mailItem 
Dim response As Variant 
Dim subjectPart As String 
Dim tickettype As String 

Set obj = ActiveExplorer.Selection.item(1) 

If TypeName(obj) = "MailItem" Then 
    Set msg = ActiveExplorer.Selection.item(1) 
End If 

With msg 
    ' get CRM number and type 
    subjectPart = InputBox("What is the CRM number for this email? Enter 'TaskID' or 'TicketID'") 

    ' parse response 
    response = Split(subjectPart, ",") 
    subjectPart = response(0) 
    tickettype = response(1) 

    .Subject = msg.Subject & " <" & tickettype & "=" & subjectPart & ">" 

    .Save 
End With 

ProgramExit: 
    Exit Sub 
ErrorHandler: 
    MsgBox Err.Number & " - " & Err.Description 
    Resume ProgramExit 
End Sub 

您需要輸入輸入如下：

CRM號碼， TaskID/TicketID

示例：

12345，的TaskID

或

13245，TicketID

代碼分配給這樣的QAT按鈕：

http://www.howto-outlook.com/howto/macrobutton.htm