1

選択したメールへの返信をテンプレートで開くマクロがあります。ただし、電子メール マシンの残りの画像には赤い十字が表示されるだけです。

なぜこれが起こっているのか誰にもわかりますか？

    Sub TacReply()
Dim origEmail As MailItem
Dim replyEmail As MailItem
Set origEmail = Application.ActiveExplorer.Selection(1)
Set replyEmail = Application.CreateItemFromTemplate("S:\Share\TWGeneral.oft")
replyEmail.To = origEmail.SenderEmailAddress
replyEmail.Subject = origEmail.Subject
replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody
replyEmail.SentOnBehalfOfName = "email@address.com"
replyEmail.Display
End Sub

ありがとう ：）

4

1 に答える 1

1

誰かが同じ問題を抱えている場合に備えて、私が使用した解決策は次のとおりです。

    Sub Forward_Mail_Outlook_With_Signature_Html_2()

    Dim MyItem As Object
    Dim MyFwdItem As MailItem

    Dim SigString As String
    Dim Signature As String

    Set MyItem = ActiveExplorer.Selection(1).reply

    If MyItem.Class = olMail Then

        Set MyFwdItem = MyItem.Forward

        'Change only Mysig.htm to the name of the signature

        SigString = Environ("appdata") & _
                "\Microsoft\Signatures\Your Signature.htm"

        If Dir(SigString) <> "" Then
            Signature = GetBoiler(SigString)
        Else
            Signature = ""
        End If

        With MyFwdItem
            .To = MyFwdItem.SenderEmailAddress
            .subject = MyFwdItem.subject
            .HTMLBody = "<br>" & Signature & .HTMLBody
            .SentOnBehalfOfName = "youremail@address.com"
            .Display


        End With
    Else

        MsgBox "Select a mailitem."

    End If

ExitRoutine:
    Set MyItem = Nothing
    Set MyFwdItem = Nothing

End Sub

Private Function GetBoiler(ByVal sFile As String) As String

    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close

End Function
于 2016-07-15T13:08:37.813 に答える