Am Ende habe ich diesen Artikel benutzt, um mein Makro zu aktualisieren.
http://www.howto-outlook.com/howto/replyinhtml.htm
Sub ForceReplyInHTML() '================================================================= 'Description: Outlook macro to reply to a message in HTML ' regardless of the current message format. ' The reply will use your HTML signature as well. ' 'author : Robert Sparnaaij 'version: 1.0 'website: http://www.howto-outlook.com/howto/replyinhtml.htm '================================================================= Dim objOL As Outlook.Application Dim objSelection As Outlook.Selection Dim objItem As Object Set objOL = Outlook.Application 'Get the selected item Select Case TypeName(objOL.ActiveWindow) Case "Explorer" Set objSelection = objOL.ActiveExplorer.Selection If objSelection.Count > 0 Then Set objItem = objSelection.Item(1) Else Result = MsgBox("No item selected. " & _ "Please make a selection first.", _ vbCritical, "Reply in HTML") Exit Sub End If Case "Inspector" Set objItem = objOL.ActiveInspector.CurrentItem Case Else Result = MsgBox("Unsupported Window type." & _ vbNewLine & "Please make a selection" & _ " or open an item first.", _ vbCritical, "Reply in HTML") Exit Sub End Select Dim olMsg As Outlook.MailItem Dim olMsgReply As Outlook.MailItem Dim IsPlainText As Boolean 'Change the message format and reply If objItem.Class = olMail Then Set olMsg = objItem If olMsg.BodyFormat = olFormatPlain Then IsPlainText = True End If olMsg.BodyFormat = olFormatHTML Set olMsgReply = olMsg.Reply If IsPlainText = True Then olMsg.BodyFormat = olFormatPlain End If olMsg.Close (olSave) olMsgReply.Display 'Selected item isn't a mail item Else Result = MsgBox("No message item selected. " & _ "Please make a selection first.", _ vbCritical, "Reply in HTML") Exit Sub End If 'Cleanup Set objOL = Nothing Set objItem = Nothing Set objSelection = Nothing Set olMsg = Nothing Set olMsgReply = Nothing End Sub
Ich habe das Makro dreimal neu erstellt, eines für Vorwärts, eines für Antwort, eines für Antwort, und ich habe sie oben umbenannt Sub ForceReplyInHTML
, um die drei verschiedenen Makros zu erstellen.
Ich habe auch die verwandten Artikel in diesem Link verwendet, um Schaltflächen zu erstellen und meine Makros zu signieren. In der letzten Phase habe ich die Schaltfläche "Ändern" verwendet, um die Symbole meiner Makros zu ändern, damit ich leichter merken kann, wer welche welche gemacht hat.