Re: e-mail z poziomu raportu
Znalazłem tylko takie rozwiązanie:
Kod:
int Sub WyslijEmail(string Adresat, string Temat, string tresc,string zalacznik)
popup(1, "Trwa wysyłanie wiadomości")
popup(2, "proszę czekać ...")
string SMTP_SERVER = "domena.pl"
string USER_NAME = "biuro@domena.pl"
string PASSWORD = "twoje hasło"
int cdoSendUsingPickup = 1
int cdoSendUsingPort = 2
int cdoAnonymous = 0
int cdoBasic = 1
int cdoNTLM = 2
Dispatch objMessage
objMessage = CreateObject("CDO.Message")
objMessage.Subject = Temat
objMessage.TextBody = tresc
objMessage.Sender = "\"\"SERVER\"\" <biuro@domena.pl>"
objMessage.To = Adresat
objMessage.AddAttachment(zalacznik)
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_SERVER
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = USER_NAME
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PASSWORD
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 0
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 180
objMessage.Configuration.Fields.Update
objMessage.Send
popup(-1, "")
EndSub
WyslijEmail("inny@domena.pl", "To jest temat wiadomości","Wiadomość została wysłana z programu Symfonia Handel.", "C:\\Boot.bak")
Niestety nie wiem jak obsłużyć autoryzację ssl lub startls
