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
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.