Příspěvky uživatele


< návrat zpět

Mail s přílohou z excelu (8.6.2016 12:21)

Díky elninoslov za odkaz, podařilo se mi to podle toho rozběhnout 1

Mail s přílohou z excelu (8.6.2016 9:36)

Ahoj,
narazil jsem na tento kód a jediný co mu chybí pro mé potřeby je definování odesílatele, resp. jeden z mailů, který mám namapovaný. Několik pokusů o přidání proběhlo, ale neúspěšně. Věděl by někdo poradit co s tím?

Sub OutlookOdesliMail()

'Tools / References / Microsoft Outlook x.x Object Library

Dim myOlApp As Outlook.Application
Dim myItem As Object
Dim Email_Send_From As String

'objekt Outlook
Set myOlApp = New Outlook.Application

'nová zpráva
Set myItem = myOlApp.CreateItem(olMailItem)

'objekt pro přílohy
Set myAttachments = myItem.Attachments

'přidání přílohy
CestaSoubor = "U:\Složka\Test_excel.xls"
myAttachments.Add CestaSoubor, olByValue, 1, ""

With myItem
'adresát
.To = "novakova@neznam.cz"
'předmět
.Subject = "Soubor odeslaný makrem"
'obsah
.Body = "Test odeslání souboru makrem."
'zobrazit okno
' .Display
'odeslat
.Send
End With

'ukončení seance
myOlApp.Quit

End Sub


Uživatelské menu

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

Menu

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.

On-line nástroje