在发送电子邮件/Outlook VBA 之前选择签名

Question

我需要有关 vba 代码的帮助。我需要一个提示框，我可以在其中选择三个签名中的一个，然后再发送电子邮件。当然我知道我可以在写电子邮件时手动选择它，但是我们的团队使用客户的个人数据，它必须提醒选择一个好的。我创建了一个简单的脚本，它显示提示信息“你选择了正确的签名吗”，但这还不够。以前从未在 Outlook 中使用过 VBA，所以更难。

Answer 1

你需要做如下：

.SendUsingAccount = OutApp.Session.Accounts.Item(1)

这个问题已经有答案了there

归功于Siddharth Rout

Answer 2

我决定使用用户表单。我的代码工作了一段时间，但我改变了一些东西，现在它不起作用，我被卡住了。

ThisOutlookSession：

Public WithEvents myOlInspectors As Outlook.Inspectors

Sub myOlInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
    
    Dim stopka As String
    Dim msg As Outlook.MailItem
    If Inspector.CurrentItem.Class = olMail Then
        Set msg = Inspector.CurrentItem
        If msg.Size = 0 Then
           UserForm2.Show
                 
    Select Case lstNum
    Case -1
         stopka = ""
    Case 0
         stopka = "Subject1"
    Case 1
         stopka = "Subject2"
    Case 2
         stopka = "Subject3"
    End Select
          
End If
End If

Subject1 = "<b><font face=""Artifakt Element"" size=""3"" color=""#003366"">blah blah</font></b><br>" _
    & " <b> <font size=""2"" color=""black""> Blah </b> </font> <br>" _
    & " <font size=""2""> Phone: +99 999 999 999 / Mobile: +99 999 999 999 / Mail : <a href=""mailto:blahblah@blah.com""> blah blah </a> </font> <br>" _
    & " <font size=""2""> <b> BLAH-Blah blah blah </b> Warsaw, xxxxxx 32 </font> <br>" _
    & " <br>" _
    & " <font size=""2""> <a href=""www.google.com""> www.google.com </a> / <a href=""www.google.com""> BLAH</a> </font> <br>" _
    & " <font size=""1""> blah blah blah blah blah</font>"
    
With OMail
    .HTMLBody = Subject1 & .HTMLBody
    .Display
Set OMail = Nothing
End With

End Sub

用户窗体2

Private Sub UserForm_Initialize()
  
  With ComboBox1
    .AddItem "Subject1"
    .AddItem "Subject2"
    .AddItem "Subject3"
  End With
End Sub


Private Sub btnOK_Click()
    lstNum = ComboBox1.ListIndex
    Unload Me
End Sub

模块2

Public Sub ChooseTemplate()

Subject1 = "<b><font face=""Artifakt Element"" size=""3"" color=""#003366"">blah blah</font></b><br>" _
        & " <b> <font size=""2"" color=""black""> Blah </b> </font> <br>" _
        & " <font size=""2""> Phone: +99 999 999 999 / Mobile: +99 999 999 999 / Mail : <a href=""mailto:blahblah@blah.com""> blah blah </a> </font> <br>" _
        & " <font size=""2""> <b> BLAH-Blah blah blah </b> Warsaw, xxxxxx 32 </font> <br>" _
        & " <br>" _
        & " <font size=""2""> <a href=""www.google.com""> www.google.com </a> / <a href=""www.google.com""> BLAH</a> </font> <br>" _
        & " <font size=""1""> blah blah blah blah blah</font>"

Dim OMail As Outlook.MailItem
Dim oContact As Outlook.ContactItem

'If TypeName(ActiveExplorer.Selection.Item(1)) = "ContactItem" Then
' Set oContact = ActiveExplorer.Selection.Item(1)

Dim msg As Outlook.MailItem
    If Inspector.CurrentItem.Class = olMail Then
        Set msg = Inspector.CurrentItem
        If msg.Size = 0 Then

Dim strTemplate As String
 Set OMail = Application.CreateItem(olMailItem)
  UserForm1.Show
  
  

    Select Case lstNum
    Case -1
         OMail.Subject = ""
    Case 0
         OMail.Subject = "Subject_1"
    Case 1
         OMail.Subject = "Subject_2"
    Case 2
         OMail.Subject = "Subject_3"
    End Select
End If
With OMail
  .To = oContact.Email1Address
  .ReadReceiptRequested = True
  .Subject = "Test Makro"
  .Body = "Hi " & oContact.FirstName & "," & vbCrLf & vbCrLf & OMail.Body
  .Display
End With
  End If
Set OMail = Nothing


End Sub