MS Excel

skus toto - (mne to neslo) viac na http://www.rondebruin.nl/cdo.htm

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
' = "Fill in your SMTP server here"
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With iMsg
Set .Configuration = iConf
.To = "ron@debruin.nl"
.CC = ""
.BCC = ""
.From = """Ron"" <ron@something.nl>"
.Subject = "New figures"
.TextBody = strbody
.Send
End With

End Subcitovat

tak toto fakt funguje. Sice na začátku varuje že to za mě posílá email, ale myslím že to souvisí se zabezpečením PC.

Sub Send_Email_Using_VBA()
Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = "automaticky odesílaný email VBA -EXCEL"
Email_Send_From = "odkoho@mail.cz"
Email_Send_To = "komu@mail.cz"
Email_Cc = ""
Email_Bcc = ""
Email_Body = "bezva, funguje to"
On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.cc = Email_Cc
.BCC = Email_Bcc
.Body = Email_Body
.send
End With
debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Subcitovat

a jak zaridim aby soucasti tohoto mailu byla priloha soubor v kterem poustim toto makro (ale samozrejme bez makra)citovat

a jak zaridim aby soucasti tohoto mailu byla priloha soubor v kterem poustim toto makro (ale samozrejme bez makra)

schováš makra citovat