mojaSymfonia FORUM
https://forum.mix-soft.pl/

e-mail z poziomu raportu
https://forum.mix-soft.pl/viewtopic.php?f=15&t=6978		 Strona 1 z 1
Autor:  mlodszy2 [ 2015-12-31, 07:47 ]
Tytuł:  e-mail z poziomu raportu
Witam,
Czy udało się może komuś wysłać e-mail z poziomu raportu?

Pozdrawiam
Autor:  rafal [ 2015-12-31, 17:44 ]
Tytuł:  Re: e-mail z poziomu raportu
poszukaj na forum
Autor:  mlodszy2 [ 2016-01-15, 21:41 ]
Tytuł:  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
Autor:  rafal [ 2016-01-16, 21:48 ]
Tytuł:  Re: e-mail z poziomu raportu
Do Outlooka masz tu -> viewtopic.php?f=2&t=6888
Autor:  mlodszy2 [ 2016-01-18, 08:40 ]
Tytuł:  Re: e-mail z poziomu raportu
To działa rewelacyjnie :)
Tylko ogranicza mnie do Outlooka a niestety zamiana na :
Kod:
dispatch dApp = "Thunderbird.application"

zwraca błąd
Autor:  wrob [ 2016-01-19, 03:32 ]
Tytuł:  Re: e-mail z poziomu raportu
Bo thunderbird nie obsluguje OLE automation.
Autor:  Jarek75 [ 2016-02-15, 09:24 ]
Tytuł:  Re: e-mail z poziomu raportu
Nie znalazłszy lepszego rozwiązania napisałem aplikację zewnętrzną, którą wywołuję z języka raportów. Akurat wtedy byłem entuzjastą javy, więc zastosowałem bibliotekę org.apache.commons.mail.HtmlEmail. Teraz chyba bym pisał w c#.
Autor:  mlodszy2 [ 2016-02-15, 20:43 ]
Tytuł:  Re: e-mail z poziomu raportu
W moim przypadku Outlook okazał się rewelacyjnym rozwiązaniem.
Mam pełną kontrolę nad wysyłanymi mailami oraz historią maili
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/