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

e-mail z symfoni
https://forum.mix-soft.pl/viewtopic.php?f=15&t=331		 Strona 1 z 1
Autor:  stopi [ 2008-10-08, 12:04 ]
Tytuł:  e-mail z symfoni
Witam mam takie pytanie?
Czy istnieje możliwość dodania do raportów w symfoni coś na zasadzie alertów.
mianowicie np. w handlu przy wystawianiu dokumentu zostaje wysłana wiadomość na wskazany adres z odpowiednią informacją.
Autor:  wrob [ 2008-10-08, 13:34 ]
Tytuł: 
Mozna :)
Znajdz sobie jakąś kontrolke OCX, czy inny moduł COM ktory potrafi wysylać maile i go normalnie wywolaj z raportu.
Mozna nawet uzyć dużego outlooka ktory jest serwerem COM :)
Autor:  rafal [ 2008-10-08, 15:02 ]
Tytuł: 
Raporty → Procedury → Procedury dokumentu sprzedaży


Kod:
//"procsp.sc","Procedury dokumentu sprzedaży",12015,0,1.0.0,SYSTEM
//" Procedury",2400,14,62

#define TYP_KATALOG      14
#define RODZ_GLOWNY      3300

#define olMailItem   0

int Sub OnAfterInsert(long lId)

baseDK dk
baseKH kh
dk.GetRecById(lId)
kh.GetRecById( dk.GetField("khid") )

dispatch dApp = "Outlook.application"
dispatch dMail
dMail = dApp.CreateItem(olMailItem)

   dMail.Recipients.Add(kh.GetField("email"))
   dMail.Subject = using "Wystawiono fakturę nr %s", dk.GetField("kod")
   dMail.Body = "Uprzejmie informujemy ....."

   dMail.Attachments.Add("c:\\temp\\dane_dodatkowe.txt")

   dMail.Save
   dMail.Send

   OnAfterInsert = SprawdzOkresNumeracji(lId, BAS_DK)
EndSub
Autor:  slawek [ 2008-10-10, 00:54 ]
Tytuł: 
Witam

W prezencie przesyłam gotową funkcję. Wystarczy tylko trochę pozmieniać wg potrzeb.
Miłej zabawy :)

Sławek

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 = "prosoft.net.pl"
      string USER_NAME = "biuro@prosoft.net.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@prosoft.net.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("slawek@prosoft.net.pl", "To jest temat wiadomości","Wiadomość została wysłana z programu Symfonia Handel.", "C:\\Boot.bak")
Autor:  mnat [ 2008-11-21, 14:10 ]
Tytuł: 
Hmmm....

No Panowie bardzo fajnie, ale mam co znacznie lepszego. Kontrolka COM a'la Outlook Express, która do pełni szczęścia potrzebuje tylko .NET'a i w pełni integruje się z symfonią.
Jest to produkt pudełkowy.
Więcej info na priv
Autor:  stopi [ 2008-12-02, 15:21 ]
Tytuł: 
Wielkie dzięki za pomoc rafal działa rewelacyjnie ( w skrócie tak bym powiedział)
Jeszcze raz dzięki za pomoc
Autor:  ArCom [ 2009-06-16, 15:11 ]
Tytuł: 
Witam Panowie,
mam takie zapytanie: czy jest taka możliwość podpięcia procedury wysyłania emaila, w przypadku edycji lub usunięcia doklumentu handlowego lub magazynowego ?
W mailu takim potrzebne byłoby poinformowanie kierownika o osobie, czasie, dokumencie, czego edycja dotyczyła... nie wiem czy jest wogóle mozliwe, ale czytając posta pomyslałem że może ktoś już taką funkcję pisał...

Z góry dzieki
PZDR.
Autor:  wrob [ 2009-06-16, 16:20 ]
Tytuł: 
wloz ten kod do procedur typu afterupdate, beforeinsert itp i zadziala
Autor:  ArCom [ 2009-06-17, 11:06 ]
Tytuł: 
A gdzie dokładnie ten kod "włozyc" ?
Nie próbowałem jeszcze dopisywać niczego w Ambasic, generalnie nie znam tego środowiska, dotychczas wszystko co potrzebne wyciagam z SQL do vidoków a potem to już szanowny Excell itd.,
pewnie będzie to dla mnie nie lada wyczyn...
Chodzi o to, że nie wiem gdzie ew. wklejać kod znaleziony np. na tym forum, czy mam tworzyc coś od początku (jakiś projekt, etc) czy chodzi o wykorzystanie już istniejącego...?
Będę wdzięczny za wprowadzenie do tematu :- )
Autor:  wrob [ 2009-06-17, 14:54 ]
Tytuł: 
Za duzo by bylo pisania - moja sugestia pogrzeb w raportach w handlu poogladaj jak to tam dziala, poczytaj na forum o procedurach itp i powoli wszystko stanie sie jasne....
Autor:  zz [ 2023-05-19, 12:00 ]
Tytuł:  Re: e-mail z symfoni
odkurzam temat, bo mam potrzebę odebrania maila z poziomy Symfonii
Mail może pojawić się w Outlooku, tam mam makro zapisujące załacznik
Autor:  rafal [ 2023-05-19, 12:58 ]
Tytuł:  Re: e-mail z symfoni
Proponuję napisać program w C# i odpalać co w Harmonogramie zadań Windows i zapisywać załączniki na dysk.
A potem w AMBasic odczytywać te załączniki (może w OnTimer)
Autor:  zz [ 2023-05-29, 11:52 ]
Tytuł:  Re: e-mail z symfoni
dzięki
czy to związane z tym, że symfonis przestanie obsługiwać VBA?
czy MS nie udostepnia funkcji odbierania tak jak jest wysyłanie ?
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/