MS Excel

Téma: Mail s přílohou z excelu

Zaslal/a Kosi.s 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