Hvordan skriver jeg VBA-makro Endre Outlook 2007 for å svare i HTML?

Microsoft Outlook 2007 ikke iboende tilbyr muligheten til å endre formatet på alle svar til HTML. Du kan velge dette formatet for hver enkelt melding, men det er tidkrevende. For å tvinge formatet til HTML hver gang, må du skrive en Visual Basic for Applications (VBA) makro. VBA er Microsofts standard programmeringsspråk for Office-programmer. For å tvinge makroen til å kjøre automatisk, må du overstyre flere Outlook hendelsesprosedyrer.

Bruksanvisning

1 Klikk på "Verktøy" -menyen, sveve over "makro" og velg "Visual Basic Editor" menyen.

2 Utvid prosjektmappen og "Microsoft Office Outlook Objects" -mappen.

3 Dobbeltklikk på "ThisOutlookSession" for å åpne koderedigeringsvinduet.

4 Kopier og lim inn VBA koden under i kode redaktør:

Option Explicit

Private WithEvents objExplorer Som Explorer
Private WithEvents objMailItem Som MailItem
Private blnDiscardEvents Som boolsk
Private objBodyFormat Som OlBodyFormat

Private Sub Application_Startup ()

Sett objExplorer = Application.ActiveExplorer

blnDiscardEvents = False

objBodyFormat = olFormatHTML
End Sub

Private Sub objExplorer_SelectionChange ()
På Error Resume Next
Sett objMailItem = objExplorer.Selection.Item (1)

End Sub

Private Sub objMailItem_Reply (ByVal Response Som Object, Avbryt As Boolean)
Hvis blnDiscardEvents Eller objMailItem.BodyFormat = objBodyFormat Deretter

Exit Sub

Slutt om

Avbryt = True
blnDiscardEvents = True

Dim oResponse Som MailItem
Sett oResponse = objMailItem.Reply
oResponse.Display

oResponse.BodyFormat = objBodyFormat
blnDiscardEvents = False

End Sub

Private Sub objMailItem_ReplyAll (ByVal Response Som Object, Avbryt As Boolean)
Hvis blnDiscardEvents Eller objMailItem.BodyFormat = objBodyFormat Deretter

Exit Sub

Slutt om
Avbryt = True
blnDiscardEvents = True

Dim oResponse Som MailItem
Sett oResponse = objMailItem.ReplyAll
oResponse.Display

oResponse.BodyFormat = objBodyFormat
blnDiscardEvents = False

End Sub

Private Sub objMailItem_Forward (ByVal Forward As Object, Avbryt As Boolean)
Hvis blnDiscardEvents Eller objMailItem.BodyFormat = objBodyFormat Deretter

Exit Sub

Slutt om

Avbryt = True
blnDiscardEvents = True

Dim oResponse Som MailItem
Sett oResponse = objMailItem.Forward
oResponse.Display

oResponse.BodyFormat = objBodyFormat
blnDiscardEvents = False

End Sub

5 Klikk på "File" -menyen og velg menypunktet "Lagre".

6 Lukk Visual Basic Editor vinduet.

7 Klikk på "Verktøy" -menyen, sveve over "makro" og velg "Sikkerhet" menyen.

8 Pass på at makroer ikke er deaktivert ved å velge "Advarsler for alle makroer" klikk "OK."

9 Start Microsoft Outlook-programmet.

10 Velg alternativet "Aktiver makroer" når advarselen vises når du starter Outlook.