MS Excel

Téma: vložit obsah oblasti do textu/těla emailu

Zaslal/a PavDD 22.2.2022 15:34

Nevěděl by někdo ? :

Označím si oblast buněk a tuto chci nacpat do těla emailu mezi definovaný text.

zkouším : ale nepřidá se mi tam ten obsah buněk.
normálně bych bunky označil , CTRL+C a CTRL+V je vložil do textu emailu, ale jak napsat makro?

Sub OdesliEmail()

Dim strAdresa As String, strBody As String, strPredmet As String
Dim TextVložit As String
Dim OutApp As Object, OutMail As Object
Dim strPath As String, strFullPath As String, strNamePDF As String, strManualPath As String

TextVložit = "blablabla"

'adresa
strAdresa = "abcabc@vy.cz"

'předmět e-mailu
strPredmet = "Přidej"

PosledniPlnyRadek = Cells(rows.Count, "A").End(xlUp).Row ' Ve sloupci A
MsgBox "Poslední obsazený řádek má číslo: " & PosledniPlnyRadek
Range("B2", "B" & PosledniPlnyRadek).Select

**tuto oblast chci nacpat do těla textu emailu:**

Text = Range("B2", "B" & PosledniPlnyRadek).select
Selection.Copy
**

'text e-mailu
'strBody = "Dobrý den," & vbCrLf

strBody = strBody & "Text" ??????

strBody = strBody & "Děkuji" & vbCrLf & vbCrLf
strBody = strBody & " S pozdravem" & vbCrLf

Const olMailItem As Long = 0 'je potřebné deklarovat tuto konstantu, tím pádem to nepotřebuje VBA referenci na Outlook 16 nebo 15
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail
.Display
.To = strAdresa
' If Len(strKopie) > 0 Then .CC = strKopie
.Subject = strPredmet
.body = strBody

' .Attachments.Add strPriloha
' If [Urgent1] = "ANO" Then .Importance = 2

End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Zaslat odpověď >

Nebyly zaslány žádné odpovědi.

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.