MS Excel

Dobrý den. Dlouho jsem využívala k odesílání mailu i s přílohou outlook. Nyní používám pro připojení Edge. Nevím si rady, nejde mi odeslat přes VBA ani už i ten outlook....
Děkuji za pomoc

Zaslat odpověď >

Strana: 1 2 další »

marjankaj(6.11.2020 13:53)#048799

Hezká fotka

citovat

Lugr(6.11.2020 14:35)#048800

Příloha?citovat

zdena(6.11.2020 18:45)#048801

Omlouvám se

citovat

zdena(6.11.2020 18:50)#048802

Private Sub Send_mail_Click()
'On Error Resume Next
Dim Outlook As Outlook.Application
Dim Zprava As Object
Dim PDF_path As String
'PDF_path = ActiveWorkbook.Path & "\logfile.txt" '"\Objednávka.pdf"
PDF_path = "C:\EXCEL\logfile.txt" '"\Objednávka.pdf"
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF_path _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Set Outlook = New Outlook.Application
Set Zprava = Outlook.CreateItem(olMailItem)
Set myAttachments = Zprava.Attachments
On Error GoTo ERR1
myAttachments.Add PDF_path, olByValue, 1, ""
With Zprava
.To = Range("b1") 'adresát
.Subject = Range("b2") 'předmět
.Body = Range("b3") 'obsah
.CC = Range("b4") 'kopie mailu
.BodyFormat = olFormatPlain 'format mailu
.Display 'zobrazit okno
.Send 'odeslat
End With
GoTo konec
ERR1:
MsgBox "e-mai nebyl odeslán, něco je špatně"
MsgBox PDF_path
konec:
End Sub

Příloha: txt

48802_logfile.txt (1kB, staženo 20x)

citovat

Stalker(6.11.2020 20:24)#048805

Co znamená nejde?
Zobrazí se chybová hláška nebo se sekne na nějakém řádku?
Ten kód někdy fungoval?

Edit:
Co tento kód:
Option Explicit

Private Sub Send_mail_Click()

Dim Outapp As Outlook.Application
Dim Zprava As Outlook.MailItem
Dim PDF_path As String

'PDF_path = ActiveWorkbook.Path & "\logfile.txt" '"\Objednávka.pdf"

PDF_path = "C:\EXCEL\logfile.txt" '"\Objednávka.pdf"

'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF_path _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Set Outapp = New Outlook.Application
Set Zprava = Outapp.CreateItem(olMailItem)

On Error GoTo ERR1

With Zprava
.BodyFormat = olFormatPlain 'format mailu
.Display 'zobrazit okno
.To = Range("b1") 'adresát
.Subject = Range("b2") 'předmět
.Body = Range("b3") 'obsah
.Attachments.Add PDF_path 'příloha
.CC = Range("b4") 'kopie mailu
.Send 'odeslat
End With
GoTo konec
ERR1:
MsgBox "e-mai nebyl odeslán, něco je špatně", vbCritical, "CHYBA !!!"
MsgBox PDF_path
Zprava.Close olDiscard

konec:
End Sub

Při testování jsem měl hodnoty (To, Subject, Body) přímo v kódu. K jednotlivým buňkám si doplň i odkaz na konkrétní list.

Samozřejmě v Tool -> References musí bít vybrána příslušná knihovna (Microsoft Outlook xx.x Object Library).citovat

zdena(7.11.2020 0:04)#048810

sekne se to nyní i v tom původním

Set Zprava = Outapp.CreateItem(olMailItem)