Note: The other languages of the website are Google-translated. Back to English

Kako samodejno odgovoriti v obliki HTML v Outlooku?

V programu Microsoft Outlook lahko konfiguriramo nastavitve in sestavimo vsa nova sporočila v obliki HTML, ne moremo pa samodejno odgovarjati na sporočila v obliki HTMT, ker vedno odgovori v začetni obliki prejetih sporočil. Ta članek vam bo predstavil trike za samodejni odgovor v obliki HTML v Outlooku.

Odgovorite v obliki HTML ročno z oblikovanjem
Z VBA samodejno odgovorite v obliki HTML
Vedno samodejno odgovori v obliki HTML s Kutools za Outlook


Odgovorite v obliki HTML ročno z oblikovanjem

Ko odgovarjate na e-poštno sporočilo v Outlooku, je enostavno pretvoriti oblike navadnega besedila ali obogatenega besedila v obliko HTML.

1: Izberite e-poštno sporočilo, na katerega boste pozneje odgovorili.

2: Kliknite Odgovori gumb na Home (ali v orodni vrstici v programu Outlook 2007), da odgovorite na izbrano e-poštno sporočilo.

3: Kliknite HTML o Oblika besedila zavihek (ali možnosti zavihek v programu Outlook 2007).

Nato se odzivno sporočilo takoj pretvori v obliko HTML.

4: Sestavite to odgovorno sporočilo in kliknite Pošlji gumb.


Z VBA samodejno odgovorite v obliki HTML

Naslednja metoda vam bo pomagala samodejno odgovoriti na vsa e-poštna sporočila v obliki HTML v programu Microsoft Outlook.

1: Izberite e-poštno sporočilo, na katerega boste odgovorili v obliki HTML.

2: Pritisnite druga + F11 za odpiranje okna Microsoft Visual Basic for Applications.

3: Kliknite Vstavi > Moduli.

4: V novo okno modula prilepite naslednjo kodo.

Sub AlwaysReplyInHTML()
Dim oSelection As Outlook.Selection
Dim oItem As Object
'Get the selected item
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oSelection = Application.ActiveExplorer.Selection
If oSelection.Count > 0 Then
Set oItem = oSelection.Item(1)
Else
MsgBox "Please select an item first!", vbCritical, "Reply in HTML"
Exit Sub
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
Case Else
MsgBox "Unsupported Window type." & vbNewLine & "Please select or open an item first.", _
vbCritical, "Reply in HTML"
Exit Sub
End Select
    Dim oMsg As Outlook.MailItem
Dim oMsgReply As Outlook.MailItem
Dim bPlainText As Boolean
'Change the message format and reply
If oItem.Class = olMail Then
Set oMsg = oItem
If oMsg.BodyFormat = olFormatPlain Then
bPlainText = True
End If
oMsg.BodyFormat = olFormatHTML
Set oMsgReply = oMsg.Reply
If bIsPlainText = True Then
oMsg.BodyFormat = olFormatPlain
End If
oMsg.Close (olSave)
oMsgReply.Display
'Selected item isn't a mail item
Else
MsgBox "No message item selected. Please select a message first.", _
vbCritical, "Reply in HTML"
Exit Sub
End If
'Cleanup
Set oMsgReply = Nothing
Set oMsg = Nothing
Set oItem = Nothing
Set oSelection = Nothing
End Sub

5: Če želite na izbrano sporočilo odgovoriti samo v obliki html, pritisnite F5 tipko za zagon kode. Potem se prikaže okno z odgovorom, sestavite ga in pritisnite Pošlji gumb za pošiljanje e-pošte.

Nasvet::
Če želite v prihodnosti vedno ali pogosto odgovarjati na e-poštna sporočila v obliki html v programu Outlook, nadaljujte s konfiguracijo, kot sledi.
1) Kliknite Prilagodite orodno vrstico za hitri dostop v traku programa Outlook in nato kliknite Več ukazov iz spustnega menija.

2) V Outlook Možnosti pogovorno okno, morate:
2.1) Izberite Makri v Izberite ukaze iz spustni seznam;
2.2) Izberite Project1.AllwaysReplyInHTML v ukaznem polju;
2.3) Kliknite Dodaj gumb (vidite, da je izbrani makro dodan v desno polje);
2.4) Kliknite OK . Oglejte si posnetek zaslona:

3) Zdaj je makro dodan v orodno vrstico za hitri dostop in prikazan kot  ikono. Vsakič, ko morate odgovoriti na e-pošto v obliki html, izberite e-pošto in kliknite ta gumb, da jo aktivirate.


Vedno samodejno odgovori v obliki HTML s Kutools za Outlook

Kutools za Outlook : z več kot 100 priročnimi dodatki za Outlook, brezplačno poskusite brez omejitev v 60 dneh.

Tu vam priporočam priročen pripomoček - Oblikovanje popravljenega odgovora of Kutools za Outlook. S tem pripomočkom lahko enostavno določite obliko odgovora, na primer HTML, navadno besedilo in RTF, in določite oblikovanje kot obliko odgovora za vsa prihodnja e-poštna sporočila z odgovori.

1. klik Kutools > Fiksno oblikovanje > Oblikovanje popravljenega odgovora > Nastavite oblikovanje odgovora. Oglejte si posnetek zaslona:

2. V Ljubljani Nastavite oblikovanje odgovora v pogovornem oknu izberite HTML in nato kliknite na OK gumb.

3. Zdaj kliknite Fiksno oblikovanje > Oblikovanje popravljenega odgovoraOmogoči oblikovanje fiksnih odgovorov pod zavihkom Kutools, da omogočite pripomoček.

Od zdaj naprej Outlook vedno odgovori na e-poštno sporočilo v obliki HTML.

Če želite brezplačno preskusiti to orodje, pojdite na brezplačno prenesete programsko opremo najprej in nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (24)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
TI SI ČAROVNIK!!! :lol: Skript VBA deluje odlično, ni mi več treba brisati svojega podpisa, ročno pretvarjati v HTML in nato znova vstaviti svoj podpis na VSAKO poslano sporočilo!
Ta komentar je moderator na spletnem mestu minimiziral
Ti si genialni kolega!!! Hvala... Imam še eno vprašanje.. Ali veste, kako odstraniti oznake odstavkov, ko se samodejno prikažejo pri sestavljanju odgovora v Outlooku. Hvala vam
Ta komentar je moderator na spletnem mestu minimiziral
Super, junak! Res deluje, prihrani čas in energijo.
Ta komentar je moderator na spletnem mestu minimiziral
To uporabljam in obožujem že en mesec (hvala!), danes pa se je pokvarilo. Drugo iskanje po spletu mi pove, da je to morda pokvarila posodobitev Outlooka – imate kakšne ideje?
Ta komentar je moderator na spletnem mestu minimiziral
Zdi se, da to deluje pri pošiljatelju, od katerega sem prejel txt e-pošto, ne pa tudi za druge pošiljatelje. Ali moram to ponoviti za vsakega pošiljatelja? FYI, Outlook 365 za poštni račun Exchange na napravi z operacijskim sistemom Windows 7.
Ta komentar je moderator na spletnem mestu minimiziral
odlično opravljeno, vendar mi daje napako: Set oMsgReply = oMsg.Reply ni mogel poslati sporočila
Ta komentar je moderator na spletnem mestu minimiziral
Odlično opravljeno. dejansko pa imam majhno napako, ki bi lahko bila v nasprotju z možnostjo izvajanja: Nastavi oMsgReply = oMsg.Reply mi lahko poveš, če naletiš na takšno napako, povezano z zgornjo kodno vrstico. rgds
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za to, vendar imam težave. Kopiram/prilepim in številka je bila postavljena nad besedilo, ko sem ga prilepila in dobil sem sporočilo o napaki - "napaka pri prevajanju: neveljavna zunanja procedura" Nato sem poskusil samo izbrisati številke in zapustiti test in dobil: Run time Error - ni mogel poslati sporočila. - Nato sem kliknil Odpravljanje napak in dobil isto napako kot drugi: Set oMsgReply = oMsg.Reply Thoughts?
Ta komentar je moderator na spletnem mestu minimiziral
Ne odpirajte e-pošte, označite jo le v Outlooku. Alt +F11 vstavite modul F5 Novo e-poštno sporočilo se mora odpreti kot HTML za odgovor
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, uspelo je. Ti si človek!
Ta komentar je moderator na spletnem mestu minimiziral
Prosim, ali poznate ustrezne tipke 'Alt F11' in 'F5', ko uporabljate Outlook 2016 na Macu?
To je zagotovo moteča Microsoftova opustitev. Najlepša hvala. Upam, da lahko pomagate.
Ta komentar je moderator na spletnem mestu minimiziral
to spremeni samo e-pošto, ki sem jo izbral. kako ga spremeniš za vsa e-poštna sporočila?
Ta komentar je moderator na spletnem mestu minimiziral
Enako zame. Ste dobili kakšno pomoč?
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala za ta makro!
Ta komentar je moderator na spletnem mestu minimiziral
Sledil sem vsem navedenim korakom, toda ko pritisnem F5, da zaženem modul, dobim sporočilo o napaki, ki pravi, da so bili makri za ta projekt onemogočeni. Poskušal sem celo iti v nastavitve Outlooka in povedati Outlooku, naj omogoči vse makre. Vsaka pomoč bi bila zelo hvaležna!
Ta komentar je moderator na spletnem mestu minimiziral
Zagon makra deluje za en primer, toda kako ga ponoviti, da se pojavi na vsakem primerku?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,

To deluje zelo dobro, hvala. Ampak ... ne odgovarja vsem. Odgovoru je dodan samo pošiljatelj prejetega e-poštnega sporočila. Kaj naj spremenim v kodi, da bo namesto "Odgovori" "Odgovori vsem"?


Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Hi,

kar se tiče odgovora vsem - zelo preprosto - samo spremenite 31. vrstico kode:

Nastavite oMsgReply = oMsg.Reply --> spremenite "oMsg.ReplyAll" ali spremenite "oMsg.Forward"

Če se želite prijaviti za "vsa e-poštna sporočila", naredite to:
Namesto da bi ustvarili gumbe v hitrem dostopu, ustvarite nove gumbe neposredno na traku (Customize Ribbon), tam ustvarite "Po meri" ("Nova skupina") in ustvarite gumbe iz makrov (prvi makro za "odgovori vsem", drugi makro za "naprej").

In izvirno skupino "Odgovori" je mogoče odstraniti s traku ;)

Kakorkoli že, extendoffice.com je super stran, s katere včasih črpam podatke - najlepša hvala... ;)
Ta komentar je moderator na spletnem mestu minimiziral
To je odlično in rešuje dolgoročne frustracije z Outlookom! Kot nekdo, ki nima izkušenj s kodiranjem VBA, bi lahko dobil malo več nasvetov o tem, kako nastaviti funkcijo odgovora in posredovanja. Deluje 'replyinHTML' (z gumbom na traku po meri zanj), vendar nisem prepričan, kako bi druge možnosti delovale. Ali naj ustvarjam nov projekt ali nov modul znotraj obstoječega projekta s spremenjeno kodo v vrstici 31?
Vsaka pomoč je hvaležna - hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, shraniti jih morate kot tri različne module. :)
Ta komentar je moderator na spletnem mestu minimiziral
Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Ta makro uporabljam že nekaj let. Na žalost je začel spreminjati nabor znakov odgovorjenega e-poštnega sporočila v nek neznan nabor znakov, npr. "整瑸栯浴㭬挠慨獲瑥甽晴㠭㸢਍䴼呅⁁䅎䕍∽敇", ki ga ni mogoče prevesti. Ali je še kdo naletel na to težavo in če je, ali ste lahko našli rešitev?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,

Prosimo, poskusite s spodnjo kodo:
Sub AlwaysReplyInHTML()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMail As Outlook.MailItem
Dim xMailReply As Outlook.MailItem
'On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
  Case "Explorer"
    Set xSelection = Application.ActiveExplorer.Selection
    If xSelection.Count > 0 Then
      Set xItem = xSelection.Item(1)
    Else
      MsgBox "Please select an item first!", vbCritical, "Kutools for Outlook"
      Exit Sub
    End If
  Case "Inspector"
    Set xItem = Application.ActiveInspector.CurrentItem
  Case Else
    MsgBox "Unsupported Window type." & vbNewLine & "Please select or open an item first.", vbCritical, "Kutools for Outlook"
    Exit Sub
End Select
If xItem.Class = olMail Then
  Set xMail = xItem
  Set xMailReply = xMail.Reply
  xMailReply.Display
  xMailReply.BodyFormat = olFormatHTML
Else
  MsgBox "No message item selected. Please select a message first.", vbCritical, "Kutools for Outlook"
  Exit Sub
End If
Set xMailReply = Nothing
Set xMail = Nothing
Set xItem = Nothing
Set xSelection = Nothing
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, bom poskusil. Imej lep dan.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije