Zavrieť

Porady

Upraviť

Hlavné

Ďalšie rubriky

Outlook-šablóna (formulár)

Outlook 2003 - šablóna (formulár)

Ako zjednodušiť činnosť preklikávania.

Vytvorila som šablónu (formulár) pre konkrétny kontakt s konkrétnym textom, do ktorého potom potrebujem ešte napísať ďalšie informácie (je to pre kolegyňu)

Zatiaľ som to vymyslela tak, že som jej text vložila do základnej predvolenej šablóny, to znamená, že ten text potom musí mazať, ak ho neposiala práve tomu konkrétnemu jednému kontaktu.

Mám takú predstavu, že keď otvorí novú správu, zadá konkrétny kontakt do poľa Komu, tak sa automaticky vloží preddefinovaný text (toto ale zmieňovanou šablónou-formulárom nespravím) a potom môže doplniť ešte ďalšie informácie.

Potrebujem to jednoducho zjednodušiť.
Pre lepšie pochopenie som nahrala video.
https://ulozto.sk/!jnUlSFvgCoSS/screencasts-zip
Naposledy upravil Kabaka123 : 26.05.17 at 18:56
šablóna-formulár.JPG  
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!
    Usporiadať podľa času

    xxn je offline (nepripojený) xxn

    xxn
    Neviem či som to správne pochopil ale možno by pomohla tzv. hromadná korešpondencia ktorá je obsiahnutá vo Worde. Takáto korešpondencia umožňuje personalizovať text osobitne pre každého príjemcu.

    Video s návodom je napr. tu
    alebo návod na prepojenie s Excelom tu:
    https://exceltown.com/navody/postupy...korespondence/

    Inou možnosťou je VBA procedúra. Návod (žiaľ iba v EN) tu: http://spreadsheetpage.com/index.php...il_from_excel/

    Nemám ale moc skúseností s takouto korešpondenciou a ani netuším či je tento nástroj dostupný v Office 2003.
    0
    9 komentáre - rozbaľ     zbaliť
    Kabaka123 Už som našla makro. Funguje.
    Len ho potrebujem sprevádzkovať tak, aby som ho nemusela spustiť cez Nástroje-makro-spustiť

    Public Sub CreateNewMessage()
    Dim objMsg As MailItem

    Set objMsg = Application.CreateItem(olMailItem)

    With objMsg
    .To = "nieco@gmail.com"
    .Subject = "dodatok do MOSu!"
    .Categories = " "
    .VotingOptions = "Yes;No;Maybe;"
    .BodyFormat = olFormatPlain '
    .Importance = olImportanceHigh
    .Sensitivity = olConfidential
    .Display
    End With

    Set objMsg = Nothing
    End Sub
    xxn V Outlooku na karte rýchleho prístupu sa vytvorí obrázok/ikona ktorá makro spustí.
    Skús postup podľa: http://www.mitvsehotovo.cz/2009/05/g...ticky-dil-vii/ časť "Přiřazení makra tlačítku".
    Je to ale trochu kostrbaté tak možno pomôže nasledujúci EN videonávod:
    Kabaka123 super.... vďaka za radu... ale oto nie je pre 2003

    inak podarilo sa mi sprevádzkovať predsa len pomocou šablóny a to tak, že som poslala odkaz na plochu (nechala som si ukázať skryté priečinky a preklikala som sa k šablóne)

    je to najjednoduchšia verzia
    ale pozriem sa aj na to makro
    Kabaka123 Už sa mi podarilo vytiahnúť tlačidlo do outlooku.
    Je to jednoduché.
    Nástroje-vlastní-príkazy-makra-projekt
    Kabaka123 tak už mám aj makro kompletné, chýbal mi tam tento riadok .Body =
    xxn OK.
    V prípade že sa mailom bude zasielať aj nejaká príloha tak by to vyzeralo napr. takto:

    Public Sub CreateNewMessage()
    Dim objMsg As MailItem

    Set objMsg = Application.CreateItem(olMailItem)

    With objMsg
    .To = "niekto@gmail.com"
    .Subject = "Automatický mail skúška!"
    .Categories = " "
    .VotingOptions = "Yes;No;Maybe;"
    .BodyFormat = olFormatPlain '
    .Body = "Toto je telo správy."
    'treba vpísať priečinok/cestu kde je príloha umiestnená
    .Attachments.Add ("C:\Príloha.txt")
    .Importance = olImportanceHigh
    .Sensitivity = olConfidential
    .Display
    End With

    Set objMsg = Nothing
    End Sub
    Kabaka123 .Attachments


    Ok vďaka. A ako by som pripojila podpis, ktorý je nadefinovaný v outlooku?
    Týmto príkazom to nepôjde. Pripojí podpis ako prílohu, ale nevloží ho do tela správy. Jedine, žeby som aj podpis vložila do tela správy.

    A potom mám ešte nedoriešenú vec.
    Celý text potrebujem naformátovať na Times New Roman
    Telo správy na veľkosť 12, podpis na 10 a Italic (šikmé)


    Viem cez formát urobiť len celý text, neviem telo oddeliť od podpisu.

    Sub Makro1()
    Selection.Font.Size = 12
    Selection.Font.Name = "Times New Roman"
    End Sub
    xxn K rôznym fontom v mailovej správe som našiel nasledujúci koment:

    Use HTMLBody instead of Body and put style attributes in each line/paragraph, something like this:
    HTML Code:

    .HTMLBody = "<p style='font-family:calibri;font-size:11'>" & "Your text here" & "</p>"

    Treba teda zrejme použiť HTML Body namiesto Body pričom treba pre jednotlivé časti textu nadefinovať font a potom napísať príslušnú časť textu. HTML Body teda musí byť v správe s viacerými fontami tiež viackrát.

    K podpisu: Nejaký postup som našiel tu: https://www.rondebruin.nl/win/s1/outlook/signature.htm
    (príklady 2 a 3)
    Ak tomu dobre rozumiem tak sú dve možnosti. Buď to tam napísať natvrdo cez Body alebo nalinkovať cestu k súboru s podpisom..

    Neskúšal som ani jedno takže good luck...
    Kabaka123 Tak už som to naformátovala ako som chcela. Podpis som dala natvrdo do tela a uzavrela som ho do tagov i a small.

    DOPLNENIE

    Tak konečne vďaka tomuto linku sa mi podarilo pripojiť podpis k správe.
    https://windowssecrets.com/forums/sh...mail-using-VBA

    Sub mail()
    '-----------------------------------------
    'DECLARE AND SET VARIABLES
    Dim myOutlok As Object
    Dim myMailItm 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 = "sekretariatgyn@nspbb.sk"
    .CC = ""
    .Subject = "dodatok do MOSu!"
    .HTMLBody = "<HTML><BODY>Dobrý deň!<br>Prosím o nahodenie dodatku do MOSu!<br>Ďakujem. <br><br><br><br><br> " & Signature
    .Display
    '.Send
    End With
    '-----------------------------------------
    'CLEANUP
    Set OtlNewMail = Nothing
    Set otlApp = Nothing
    Set otlAttach = Nothing
    Set otlMess = Nothing
    Set otlNSpace = Nothing
    End Sub
      zbaliť

    Outlook-šablóna (formulár)

    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