MS Excel

No skústecitovat

Zkusil jsem vložit do toho kódu na *.pdf ještě odesílání emailem, ale hlásí mi to chyby.
Ono to nahlásí kritickou chybu a já pak nevím, kde je chyba?
Co tam má špatně? Pořadí?
Sub doPDF_bezCOPY_proHS_email()
Dim sDir As String
Dim MyDate, MyTime, MyStr, MyStr1

Dim OutApp As Object
Dim OutMail As Object

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

MyTime = Time
MyDate = Date

'MyStr1 = Format(MyTime, "hh-mm-ss")
MyStr = Format(MyDate, "yyyy-mm-dd") 'Rozhoduje pořadí, bere se ta poslední varianta, řádek

sDir = ThisWorkbook.Path & "\__pdfhs\"

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

On Error GoTo KONEC

'With List2 'sem napíšeš list, který se má zpracovat
With ActiveSheet 'toto pracuje s aktuálním Listem
.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sDir & IIf(Right(sDir, 1) <> "\", "\", "") & MyStr & " - " & .Range("B4") & " - " & .Name & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With


KONEC:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

If Err.Number = 0 Then
MsgBox "Uloženo", vbInformation
Else
MsgBox "Nastala chyba !", vbCritical
End If

With OutMail
.to = ""
.CC = ""
.BCC = ""
.Subject = "Pohledávky po splatnosti HS " & .Range("B4")


.Body = "Posíláme pohledávky po splatnosti pro HS " & .Range("B4")
.Attachments.Add (sDir & IIf(Right(sDir, 1) <> "\", "\", "") & MyStr & " - " & .Range("B4") & " - " & .Name & ".pdf")
'.Send 'or use .Display
.Display
'.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Subcitovat

Adresář existuje.
v buňce B4 je textová hodnota, např. "0002". Je to kód hospodářského střediska a proto je to použité, ta buňka i v názvu ukládaného souboru.

Omlouvám se, ale co je to vyremujte?
udělal jsem toto:
'On Error GoTo KONEC

Ono se to uloží, ale neotevře se okno Outlooku.citovat

Změnil jsem ten účet na můj.
Napsal jsem moji email adresu:
něco@domena.cz

Po spuštění mi to dialogové okno napíše, že *.pdf OK, ale že nenalezen outlook účet.citovat

Super, mám to opravené. Díky za pomoc.

Jsem si také opravil.
With ThisWorkbook.ActiveSheet

Ale přesto mám dotazy.
Dalo by se to nastavit tak, abych nemusel "editovat" toho ODESILATEL_MAIL?

A co mám změnit, aby se připravený email zobrazil, ten jeho dialog, aby to nezůstalo "skryté", neozbrazené?

A pak se chci zeptat.
teď to ukládám do adresáře __pdfhs

Kdybych si předpřipravil adresáře
__pdfhs0002
__pdfhs0003
a další podle čísla HS (hospodářské středisko).

Dalo by se nastavit, aby ta cesta k adresáři:
sDir = ThisWorkbook.Path & "\__pdfhs\"

byla automaticky doplněna ještě od hodnotu v buňce B4?
takže by se spojilo to:
__pdfhs a hodnota v buňce B4.

Ona ta hodnota v buňce B4 se používá při vytváření názvu souboru a tak by se mi příslušný vytvořený soubor uložil do adresáře toho HS.

Ještě jednou děkuji.
RAdekcitovat