Příspěvky uživatele
< návrat zpět
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
Jestli můžu ještě něco.
není mi jasná syntax jak se zapisuje oblast s proměnnou
Potřebuju vybrat :
oblast ActiveSheet.Range("C3:E11").Select ok
oblast s prom. Range("B2", "B" & PosledniPlnyRadek).Select ok
ale jak napsat dvě oblasti s proměnnou ? B2:B3 a C2:C?
Range("B2:B3", "C2:C & PosledniPlnyRadek").Select nejde
P
..máte pravdu, soubor se nepřipnul, nezipoval jsem ho, nevěděl jsem to.
Ale už to asi nebude třeba, studuji ten váš kod, tak se s tím snad nějak poperu.
Děkuji, Děkuji !
P
Super, ten Váš příklad je přesně co chci.
Jen moc nechápu , jak jste docíli toho, že podle vybraného počtu buňek, To pěkně ukládá do listu 2, pod sebe.
Potřeboval jsem v jiném makru docílit vložení nějakých řádků dat, začít od A1, a komplikovaně jsem zjištoval jak to doplňovat pod sebe. Nemáte na to nějakou standartní proceduru ?...nebo je to dané tím , že jste použil"pole"? ..v tom se ztrácím.
tady ten příklad
ad : Nejlépe, když přiložíte svůj konkrétní příklad a co přesně máte v plánu.
Chci docílit toho, že v listu1-seznam lidí si mohu v kterém koliv sloupci označit bunku, a pak další a další, a makro zjistí řádky všech označených buněk a tyto řádky Celé /nebo jen některé sloupce z nich - pokud by to šlo nějak v makru zvýraznit-vyberu si variantu Celý řádek, nebo jen určité sl./ , zkopíruje do Listu 2.
P
Děkuju za info.
Ale nemám ponětí, jak to dál zpracovat.
Potřeboval bych alespoň, aby mi ty adresy zapsalo do nového listu.
1.oz.buňka / sloupec / řádek / celá adresa
2.oz.buňka / sloupec / řádek / celá adresa
3. atd
Odtud už si to pak navážu dál.
P
otestuju, moc díky.
P
Zdravím.
Poradil by někdo prosím,
1.jak označit celý řádek, když v něm /kdekoliv/ mám označenou jednu buňku.
2.jak označit v makru více řádků, když v nich kdekoliv mám označeno více buňek.
asi by to chtělo zjistit z adresy bunky/bunek jejich řádek a to pak použít v označení jednoho/více řádků.
příklad: v listu si označím třeba B2,B5,C7,B10 apod
a chci pak kopírovat celé tyto řádky/2,5,7,10/, nebo třeba do jiného listu
Děkuji
P
Zdravím.
Potřeboval bych v průběhu makra na nějaký čas zastavit jeho chod /třeba na 5 sec/.
Po uplynutí času bude zas makro pokračovat dále. Poradíte mi prosím někdo?
A k tomu ještě jedna věc. Dá se nějak zakomponovat do toho makra i to , aby se po dobu toho zdržení obědvilo okno s časovým průběhem / takové ty modré čtverečky co běží podél spodního okraje.
..případně jak lítají stránky vzduchem zleva do prava.
Děkuji
P
Super,Děkuji !!
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.
Ještě zápasím s jednou věcí.
Potřebuju nějak zjistit seznam všech listů v sešitě, nejlépe i pro kontrolu někam vypsat, i uložit do spec.listu "SEZNAM", kde si s ním pohraju dále.
Makrem si pak vytvořím nový list, jehož jméno si zadám do TextBoxu a
chci ,aby když už takovýto list existuje, nevyskočila eror debug, ale Hláška, že tento název jej již použit.
ok, díky .
Když napíšu třeba :
Range("Au17").Select
ActiveCell.FormulaLocal = "=KDYŽ(A(AV12=1;AW12=1);"jsou tam 1 a 1";"není to 1 a 1")"
píše mi to Syntax error .
Nevíte kde je chyba ?
Uživatelské menu
\nMenu
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.
RSS nejnovější články