< návrat zpět

MS Excel


Téma: odeslat mail v Edge rss

Zaslal/a 6.11.2020 0:22

zdenaDobrý 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 1

Zaslat odpověď >

Strana:  1 2   další »
#048799
avatar
Hezká fotka 1citovat
#048800
Lugr
Příloha?citovat
#048801
zdena
Omlouvám se 4citovat
#048802
zdena
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: txt48802_logfile.txt (1kB, staženo 19x)
citovat
#048805
Stalker
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
#048810
zdena
sekne se to nyní i v tom původním

Set Zprava = Outapp.CreateItem(olMailItem)

6citovat
#048812
elninoslov
Verzia OS a Office ?citovat
#048815
zdena
MS office 2016 pro
Excel 2016 MSO 32 bit
Win 10citovat
#048819
Stalker
4 Kód sem testoval na Office 2016 a Win7
a běhal bez problému.

Outlook máš taky z Office 2016?citovat
#048820
zdena
poslední aktualizace 2015
Nenašla jsem verzi...
Zjistila jsem, že bohužel mi nejde spustit outlook, ale v liště mám "pošta" a ta ten outlook spustí
Příloha: png48820_hlaska.png (9kB, staženo 31x)
48820_hlaska.png
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Tlac s farebneho

ivana1 • 19.6. 22:16

GRAF teploty

Scraper • 18.6. 15:34

Vyhledat dnešní datum když je číslo jako text

veny • 17.6. 13:56

Vyhledat dnešní datum když je číslo jako text

Ontik • 17.6. 12:07

Zaokrouhlování

lubo • 17.6. 12:03

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52