将用户可编辑变量添加到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