< návrat zpět

MS Excel


Téma: Tělo emailu ve VBA - formát rss

Zaslal/a 28.12.2021 9:07

Dobrý den
Poradil by někdo?
Mám vytvořený nový email v Outlook, zformátované písmo, různé styly, velikost, barvy , odsazení, vynechání řádků apod.a chci tento formát zadat do kodu HTMLBody.
Cokoliv tam napíšu , je to jen základní styl, bez ladu a skladu. Lze to nějak "dešifrovat" z mého "formátovaného" emailu a vložit do kodu VBA?

.BodyFormat = olFormatHTML
.Display
.HTMLBody = "dobrý den ..blablabla..text je obyčejny"
.HTMLBody

Díky za radu
P

Zaslat odpověď >

#051839
Fantasyk
Pokud data z emailu nekopíruješ tak to jde vložit přes JPG


Sub mailAscreen()
Dim OutApp As Object 'Outlook.Application
Dim OutMail As Object 'Outlook.MailItem
Dim OutAttachment As Object 'Outlook.Attachment
Dim OutPropertyAcc As Object 'Outlook.PropertyAccessor
Dim SendTo As String
Dim CC As String
Dim Subject As String
Dim ExcelCells As Range
Dim HTML As String
Dim CellsImage As String, tempCellsFile As String
Dim answer As Integer

answer = MsgBox("Opravdu chceš odeslat email?", vbQuestion + vbYesNo + vbDefaultButton2, "Opravdu chceš odeslat email?")

If answer = vbYes Then


Const PR_ATTACH_CONTENT_ID = "http://schemas.microsoft.com/mapi/proptag/0x3712001F"
Active = ActiveSheet.Name
Set ExcelCells = ThisWorkbook.Worksheets(Active).Range("A1:AC152")
SendTo = "email@email.com"
Subject = "Předmět emailu"

CellsImage = Replace(Timer, ".", "") & "image.jpg"
tempCellsFile = Environ("temp") & "\" & CellsImage
Save_Object_As_Picture ExcelCells, tempCellsFile


HTML = "<html>"
'HTML = HTML & "<a href=""http://www.seznam.cz"">seznam.cz</a>"
HTML = HTML & "<img src='cid:" & CellsImage & "'>"
HTML = HTML & "</html>"

Set OutApp = CreateObject("Outlook.Application") 'New Outlook.Application
Set OutMail = OutApp.CreateItem(0) 'olMailItem


With OutMail
.To = SendTo
.CC = CC
.Subject = Subject
' pridání prílohy
.Attachments.Add tempCellsFile, olByValue, 1, ""

Set OutAttachment = .Attachments.Add(tempCellsFile)
Set OutPropertyAcc = OutAttachment.PropertyAccessor
OutPropertyAcc.SetProperty PR_ATTACH_CONTENT_ID, CellsImage

.HTMLBody = HTML
' .send
.Display
End With

'Delete the temporary image file

Kill tempCellsFile

Set OutMail = Nothing
Set OutApp = Nothing
End If
End Sub

Private Sub Save_Object_As_Picture(saveObject As Object, imageFileName As String)

Dim temporaryChart As ChartObject

Application.ScreenUpdating = False
saveObject.CopyPicture xlScreen, xlPicture
Set temporaryChart = ActiveSheet.ChartObjects.Add(0, 0, saveObject.Width, saveObject.Height)
With temporaryChart
.Activate
.Border.LineStyle = xlLineStyleNone 'No border
.Chart.Paste
.Chart.Export imageFileName
.Delete
End With
Application.ScreenUpdating = True
Set temporaryChart = Nothing

End Sub


+ to odešle JPG jako přílohucitovat
#051840
avatar
Zdravím.
No to asi není to co potřebuju.
Neznám , neumím napsat html kod pro různý formát , velikost, styl písma.
Dá se nějak vyextrahovat z napsaného textu nového emailu ten zápis v html, a pak doplnit do toho makra do .html.body ?
P.citovat
#051843
Začátečník
Možnost je např. zobrazit zprávu v prohlížeči a pak si prohlédnout zdrojový kód.
Ale připravte se na spoustu balastu. ...citovat
#051846
avatar
...aha. diky. Kdyz zadna prijemnejsi varianta neni.
..stacilo by aspon nejaky prikaz na ukonceni radku.citovat
#051851
avatar
No a pak takový email si adresát prohlédne v klientovi, který má nastavený na textový režim, a pak všechno formátování je - slušně řečeno - k ničemu...citovat
#051896
Fantasyk

Anonym napsal/a:

...aha. diky. Kdyz zadna prijemnejsi varianta neni.
..stacilo by aspon nejaky prikaz na ukonceni radku.


ukončení řádku v html kódu je: <br>

<h1>velké písmo</h1> je velký nadpis podle čísla ubíráte velikost
<b>tučně</b>
<i>kurzíva</i>
<u>podtržený text</u>
atd... víc googlecitovat
#051897
avatar
děkujicitovat
#051949
Fantasyk

Anonym napsal/a:

děkuji

Nemáš zac..
Aspoň jsem zavzpomínal na časy před 20lety :-)
Kdy jsem dělal internetove stránky v poznámkovém blokucitovat

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

odskok v makru jinam

PavDD • 13.5. 9:03

odskok v makru jinam

Barth • 13.5. 7:25

číslování

Kalous • 12.5. 20:50

odskok v makru jinam

marjankaj • 12.5. 20:43

číslování

r13 • 12.5. 20:23

číslování

r13 • 12.5. 20:19

číslování

Kalous • 12.5. 19:46