MS Excel

Potrebujem uľahčiť kolegyni prácu.
Každý deň píše tú istú správu (s tým istým textom) na ten istý mail.

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

Ale našla som takýto kód.
Len mám dva problémy.

1. problém - Neviem, kde mám vložiť text správy, ktorý tam potrebujem mať.

text, ktorý potrebujem vložiť:

Dobrý deň!
Prosím o nahodenie dodatku do MOSu!
Ďakujem

S pozdravom

podpis (podpis je vytvorený)

2. problém - Ako vytvoriť tlačítko v outlooku na spustenie makra, aby som nemusela ísť cez - Nástroje-makro-spustiť makro

Public Sub CreateNewMessage()
Dim objMsg As MailItem

Set objMsg = Application.CreateItem(olMailItem)

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

Set objMsg = Nothing
End Sub

Zaslat odpověď >

neprihlasenyHavran(8.10.2017 5:56)#037848

Vyvolanie makra Alt-F8 nefunguje ?

Pridanie tlačítka viď Create button na stránke:

http://www.outlookcode.com/d/code/formontoolbar.htmcitovat

kabaka(8.10.2017 7:25)#037849

neprihlasenyHavran napsal/a:

Vyvolanie makra Alt-F8 nefunguje ?

Pridanie tlačítka viď Create button na stránke:

http://www.outlookcode.com/d/code/formontoolbar.htm

Ďakujem, už som vytiahla tlačidlo.
Ale problém č. 1 ostáva.citovat

Stalker(8.10.2017 11:17)#037851

Do kódu přidáš tento řádek:
.Body = "Dobrý deň!" & vbCrLf & "Prosím o nahodenie dodatku do MOSu!" & vbCrLf & "Ďakujem"
citovat

kabaka(8.10.2017 16:30)#037852

Stalker napsal/a:

Do kódu přidáš tento řádek:

Ďakujem, toto mi tam chýbalo.
Ešte raz vďaka.citovat

kabaka(9.10.2017 17:33)#037865

Stalker napsal/a:

Do kódu přidáš tento řádek:

Ďakujem

Ešte taká otázka?

Chcela som si nahrať makro vo worde a celý text naformátovať ako Times New Roman, veľkosť 12 a podpis veľkosť 10 a italic, ale pri zázname makra (kazetke)nie je možné vôbec text označiť a formátovať.

Tento text potrebujem Times new roman, veľkosť 12

Dobrý deň!
Prosím nahodiť dodatok do MOSu!
Ďakujem.

a podpis Times new roman, 12, Italic

Viem spraviť len časť textu.

Sub Makro1()
Selection.Font.Size = 12
Selection.Font.Name = "Times New Roman"
End Sub

Možno niekto povie, že podpis je predsa v outlooku samostatne, to je pravda. Ale keď som spustila makro, tak mi nepripojilo podpis,ktorý je v novej správe. Možno by stačila len funkcia na pridanie podpisu. (Ten je už naformátovaný v outlooku, ako má byť)

Toto je moja cesta k podpisu
C:\Users\Bugatti\AppData\Roaming\Microsoft\Signatures
Neviem ako to zakomponovať do makra.citovat

Stalker(13.10.2017 22:47)#037950

Ahoj pokud si chceš hrát s formátováním mail musí být v HTML což jde absolutně mimo mě, ale pomocí netu jsem zkusil slepit toto:
.BodyFormat = olFormatHTML
.HTMLBody = "Dobrý deň! Prosím o nahodenie dodatku do MOSu! Ďakujem"

a vypadá to, že by to mohlo být funkční.

Co se týče podpisu nemám ponětí. Tady je pár odkazů zkus si s tím pohrát.

https://stackoverflow.com/questions/8994116/how-to-add-default-signature-in-outlook

https://www.rondebruin.nl/win/s1/outlook/signature.htm

https://windowssecrets.com/forums/showthread.php/163512-Add-Signature-to-HTML-email-using-VBA citovat

kabaka(20.10.2017 11:49)#038093

Stalker napsal/a:

Ahoj pokud si chceš hrát s formátováním mail musí být v HTML což jde absolutně mimo mě, ale pomocí netu jsem zkusil slepit toto:
.BodyFormat = olFormatHTML
.HTMLBody = "Dobrý deň! Prosím o nahodenie dodatku do MOSu! Ďakujem"

.BodyFormat a .HTMLBody pomohli, podpis som dala natvrdo do tela, ale je to naformátované presne tak ako som chcela. Vďaka. Podpis som uzavrela do tagu i a tagu smallcitovat

eLCHa(20.10.2017 13:09)#038095

Podle kódu, co jsem si kdysi vytvořil, jsou podpisy v "\Microsoft\Signatures\"
Asi jo, protože už mi to několik let funguje ;)
Takže jsem si napsal tuto funkcičku (mám vytvořený jediný podpis). načte a pak i vloží ve formátu HTML Function fncGetSignature()
Dim sSignature As String
sSignature = Environ("AppData") & "\Microsoft\Signatures\"

If Dir(sSignature, vbDirectory) <> vbNullString Then
sSignature = sSignature & Dir(sSignature & "*.htm")
Else
sSignature = vbNullString
End If

fncGetSignature = CreateObject("Scripting.FileSystemObject").GetFile(sSignature).OpenAsTextStream(1, -2).ReadAll
End Functioncitovat

kabaka(20.10.2017 16:31)#038096

eLCHa napsal/a:

Podle kódu, co jsem si kdysi vytvořil,

Vďaka za nakopnutie. Na základe tej funkcie a tohto linku, som to už konečne dala dokopy, tak ako to má byť.
https://windowssecrets.com/forums/showthread.php/163512-Add-Signature-to-HTML-email-using-VBAcitovat

Téma: outlook 2003-makro-nová správa - VYRIEŠENÉ

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje