• 
  

  Hur skriver jag VBA makro för att ändra Outlook 2007 för att svara i html ?

  
  

Microsoft Outlook 2007 inte i sig erbjuder möjligheten att ändra formatet på alla svar till HTML . Du kan välja att formatera för varje enskilt meddelande , men det är tidskrävande . För att tvinga på HTML varje gång , måste du skriva ett Visual Basic for Applications ( VBA ) makro . VBA är Microsofts standard programmeringsspråk för Office-program . För att tvinga makrot ska köras automatiskt , måste du åsidosätta flera Outlook händelseprocedurer
1 .
Klicka på menyn "Verktyg" , för muspekaren över " Macro " och välj "Visual Basic Editor " i menyn.

2 .
utvidga projektet mappen och "Microsoft Office Outlook objekt "-mappen .
3 .
Dubbelklicka på " ThisOutlookSession "för att öppna fönstret kodredigering .
4
Kopiera och klistra in VBA -koden nedan i din kod redaktör : .

Option Explicit

Privat WithEvents objExplorer Som Explorer
Privata WithEvents objMailItem Som MailItem
Privat blnDiscardEvents As Boolean
Privat objBodyFormat Som OlBodyFormat

Private Sub Application_Startup ( )
Set objExplorer=Application . ActiveExplorer
blnDiscardEvents=False
objBodyFormat=olFormatHTML
End Sub

Private Sub objExplorer_SelectionChange ( )
On Error Resume Next Set
objMailItem=objExplorer . Selection. Item (1 )
End Sub

Private Sub objMailItem_Reply ( ByVal svar som Object , Avbryt As Boolean )
Om blnDiscardEvents Eller objMailItem. BodyFormat=objBodyFormat Exit Sub
End If
Cancel=True
blnDiscardEvents=Sant
Dim oResponse Som MailItem
Set oResponse=objMailItem . Svara
oResponse. Display
oResponse. BodyFormat=objBodyFormat
blnDiscardEvents=False
End Sub

Private Sub objMailItem_ReplyAll ( ByVal svar som Object , Avbryt As Boolean )
Om blnDiscardEvents Eller objMailItem. BodyFormat=objBodyFormat Då
Exit Sub
End If
Cancel=True
blnDiscardEvents=Sant
Dim oResponse Som MailItem
Ange oResponse=objMailItem. ReplyAll
oResponse. Display
oResponse. BodyFormat=objBodyFormat
blnDiscardEvents=False
End Sub

Private Sub objMailItem_Forward ( ByVal Fram som objekt , Avbryt As Boolean )
Om blnDiscardEvents Or objMailItem . BodyFormat=objBodyFormat Då
Exit Sub
End If
Cancel=True
blnDiscardEvents=Sant
Dim oResponse Som MailItem
Set oResponse=objMailItem. Forward
oResponse. Display
oResponse. BodyFormat=objBodyFormat
blnDiscardEvents=False
End Sub
5 .
Klicka på " Arkiv " -menyn och välj "Spara " i menyn.
6 .
Stäng Visual Basic Editor -fönstret .
7 .
Klicka på menyn "Verktyg" , muspekaren över " Macro " och välj " Säkerhet "i menyn .
8 .
Se till att makron inte är inaktiverade genom att välja " Varningar för alla makron " klicka " OK ".
9 .
Starta om Microsoft Outlook-programmet .
10 .
Välj alternativet " Aktivera makron " när varningen visas vid start Outlook .

Previous：nothing Next：hur man beräknar CRC32 kontrollsummor

Relaterade artiklar