Příspěvky uživatele
< návrat zpět
Díky elninoslov za odkaz, podařilo se mi to podle toho rozběhnout 
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
\nMenu
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.
RSS nejnovější články