求助一个另类的VBA问题-用VBA在outlook中将某个签名指定为默认

transnote

我在OUTLOOK中创建了5个签名，名字分别 是1,2,3,4,5，希望从周一到周五，每天发送邮件时，分别调用相应的签名来发送邮件。

这个用VBA如何实现呢，请大神指点

transnote

难度太大？没有人会吗

闻启学

transnote 发表于 2023-1-6 15:52
难度太大？没有人会吗

不用签名 就可以 签名其实 是一个html 文件的  可以VBA 调用某段代码

transnote

闻启学 发表于 2023-1-12 12:09
不用签名 就可以 签名其实 是一个html 文件的  可以VBA 调用某段代码

我的主要目的是这样的，设计5个不同的签名，每天发邮费时，每个工作日按时期几调用相应的签名

transnote

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As MailItem
    Set objMail = Item
    Dim objSignature As Outlook.Signature
    Select Case Weekday(Now())
        Case 1
            For Each objSignature In Outlook.Application.Session.Signatures
                If objSignature.Name = "Signature1" Then
                    objMail.HTMLBody = objMail.HTMLBody & "<br>" & objSignature.HTMLBody
                    Exit For
                End If
            Next
        Case 2
            For Each objSignature In Outlook.Application.Session.Signatures
                If objSignature.Name = "Signature2" Then
                    objMail.HTMLBody = objMail.HTMLBody & "<br>" & objSignature.HTMLBody
                    Exit For
                End If
            Next
        Case 3
            For Each objSignature In Outlook.Application.Session.Signatures
                If objSignature.Name = "Signature3" Then
                    objMail.HTMLBody = objMail.HTMLBody & "<br>" & objSignature.HTMLBody
                    Exit For
                End If
            Next
        Case 4
            For Each objSignature In Outlook.Application.Session.Signatures
                If objSignature.Name = "Signature4" Then
                    objMail.HTMLBody = objMail.HTMLBody & "<br>" & objSignature.HTMLBody
                    Exit For
                End If
            Next
        Case 5
            For Each objSignature In Outlook.Application.Session.Signatures
                If objSignature.Name = "Signature5" Then
                    objMail.HTMLBody = objMail.HTMLBody & "<br>" & objSignature.HTMLBody
                    Exit For
                End If
            Next
        Case 6
            For Each objSignature In Outlook.Application.Session.Signatures
                If objSignature.Name = "Signature6" Then
                    objMail.HTMLBody = objMail.HTMLBody & "<br>" & objSignature.HTMLBody
                    Exit For
                End If
            Next
        Case 7
            For Each objSignature In Outlook.Application.Session.Signatures
                If objSignature.Name = "Signature7" Then
                    objMail.HTMLBody = objMail.HTMLBody & "<br>" & objSignature.HTMLBody
                    Exit For
                End If
            Next
    End Select
End Sub