< návrat zpět

MS Excel


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

Zaslal/a 7.10.2017 17:04

kabakaPotrebujem 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ěď >

#037848
avatar
Vyvolanie makra Alt-F8 nefunguje ?

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

http://www.outlookcode.com/d/code/formontoolbar.htmcitovat
#037849
kabaka

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
#037851
Stalker
Do kódu přidáš tento řádek:
.Body = "Dobrý deň!" & vbCrLf & "Prosím o nahodenie dodatku do MOSu!" & vbCrLf & "Ďakujem"
citovat
#037852
kabaka

Stalker napsal/a:

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


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

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
#037950
Stalker
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 = "<font face = ""Times New Roman"" size=""12"">Dobrý deň!<br>Prosím o nahodenie dodatku do MOSu!<br>Ďakujem</font>"

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-VBAcitovat
#038093
kabaka

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 = "<font face = ""Times New Roman"" size=""12"">Dobrý deň!<br>Prosím o nahodenie dodatku do MOSu!<br>Ďakujem</font>"


.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
icon #038095
eLCHa
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 Function
citovat
#038096
kabaka

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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09