29191_automaticke-alerty.zip
Tohle se sice ve wordu ale mohlo by to s drobnýmiˇúpravami chodit. Bohužel je to outlok.
Sub Mail_send()
Application.DisplayAlerts = False
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItemFromTemplate("A:\Moje\draft.oft")
' Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .To = "jan@seznam.cz"
.CC = "lucie@seznam.cz "
.BCC = ""
.Subject = "Draft "
' .Body
.Attachments.Add ActiveDocument.Path & "\" & Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 5) & "_draft_l.pdf"
.Display
' .send
End With
On Error GoTo 0
Application.DisplayAlerts = True
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
citovat
Sub Mail_send()
Application.DisplayAlerts = False
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItemFromTemplate("A:\Moje\draft.oft")
' Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .To = "jan@seznam.cz"
.CC = "lucie@seznam.cz "
.BCC = ""
.Subject = "Draft "
' .Body
.Attachments.Add ActiveDocument.Path & "\" & Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 5) & "_draft_l.pdf"
.Display
' .send
End With
On Error GoTo 0
Application.DisplayAlerts = True
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
citovat
RSS nejnovější články