Zavrieť

Porady

Upraviť

Hlavné

Ďalšie rubriky

Outlook 2007-VBA-nepridávať medzery VYRIEŠENÉ

Nová správa je nastavená na times new roman, veľkosť fontu 12 pt, zaškrtnutá možnosť - nepridávať medzery medzi rovnakými štýlmi.
(Takto je nastavená aj šablóna - NormalEmail)

Makro-projekt vo VBA to ignoruje.

moje makro

Code:
Sub mail()
 '-----------------------------------------
 'DECLARE AND SET VARIABLES
Dim otlApp As Object
Dim OtlNewMail As Object
Dim Signature As String
 Set otlApp = CreateObject("Outlook.Application")
 Set OtlNewMail = otlApp.CreateItem(olMailItem)
 '-----------------------------------------
 'GET DEFAULT EMAIL SIGNATURE
 Signature = Environ("appdata") & "\Microsoft\Signatures\"
 If Dir(Signature, vbDirectory) <> vbNullString Then
 Signature = Signature & Dir$(Signature & "*.htm")
 Else
 Signature = ""
 End If
 Signature = CreateObject("Scripting.FileSystemObject").GetFile(Signature).OpenAsTextStream(1, -2).ReadAll
 '-----------------------------------------
 'CREATE EMAIL
 'OtlNewMail.HTMLBody = Signature
 With OtlNewMail
 .To = menopriezvisko@.firma.sk
 .CC = ""

 .Subject = "dodatok do MOSu!"

 .HTMLBody = "<HTML><BODY><P STYLE='font-family:Times New Roman;font-size:16'>Dobrý deň!<br>Prosím o nahodenie dodatku do MOSu!<br>Ďakujem. <br></ p> " & Signature
 .Display
'.Send
 End With
 '-----------------------------------------
 'CLEANUP
 Set OtlNewMail = Nothing
 Set otlApp = Nothing
End Sub


Toto je makro, ktoré odstráni medzery, ale neviem to zakomponovať do svojho makra.


Code:
Sub FixParagraphSpacing()
 Dim objOL As Application
 Dim objDoc As Object
 Dim objSel As Object
 Set objOL = Application
 Set objDoc = objOL.ActiveInspector.WordEditor
 Set objSel = objDoc.Windows(1).Selection
 objSel.ParagraphFormat.SpaceBefore = 0
 objSel.ParagraphFormat.SpaceBeforeAuto = False
 objSel.ParagraphFormat.SpaceAfter = 0
 objSel.ParagraphFormat.SpaceAfterAuto = False
 Set objOL = Nothing
 Set objDoc = Nothing
 Set objSel = Nothing
End Sub
DOPLNENIE



Toto som si pozrela. Na moje makro to nemalo vplyv, iba na novú správu.

VYRIEŠENÉ



Tak som to celé zjednodušila.
Podľa tohto linku som si natvrdo vytvorila šablónu.
Do outlooku som hodila makro na vyvolanie šablóny.
A vytiahla tlačidlo.

Účel splnený. Považujem za vyriešené, aj keď nie pôvodným spôsobom.

Code:
Sub mail()
Set msg = Application.CreateItemFromTemplate("C:\Users\meno\AppData\Roaming\Microsoft\Templates\template.oft")
msg.Display
End Sub
Naposledy upravil Kabaka123 : 25.04.19 at 16:48
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
Neregistrovaný
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!

    Outlook 2007-VBA-nepridávať medzery VYRIEŠENÉ

    Vieš, kto pozná odpoveď?
    Zdieľaj, možno sa nájde odborník Pozvi odborníka, firmu, inštitúciu atď.

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.

    Pridať pochvalu

    Ďakujem Dobre píšes Super rada
    Vtipné Si cool Milé
    Poznámočka