Nich cobain baca link ini, saya pake, dan sukses abis : http://www.topwizprogramming.com/freecode_emailsmtp.html
From: [email protected] [mailto:[email protected]] On Behalf Of haris_qq Sent: Wednesday, February 16, 2011 3:50 PM To: [email protected] Subject: [indopb] Re: Ask: bagaimana program kirim email dg PB? Ini SP aplikasi yang saya jalankan di SQL Server : -------------------------------------------------- CREATE PROCEDURE dbo.spp_cl06p_01 @kd_cb char(2), @kd_cob char(1), @kd_scob char(2), @kd_thn char(2), @no_kl char(3), @no_mts smallint, @smtp_server varchar(255), @to_addr varchar(255), @to_name varchar(255), @from_addr varchar(255), @from_name varchar(255), @subject varchar(255), @remark varchar(255) AS declare @Hasil integer, @body1 varchar(8000),@body2 varchar(8000),@body3 varchar(8000), @subject_e varchar(255) SELECT @body1 = replace( replace( replace( replace( replace(rtrim(substring(d.html_body_header,1,4000)), '@name',v.nm_peg), '@dep',c1.nm_clm), '@ben',dbo.fg_cl_name(c1.bnf)), '@cl_dt',( SELECT isnull(convert(char(11),c2.tgl_kwi,113),'-') FROM cl03 c2 WHERE c1.kd_cb = c2.kd_cb AND c1.kd_cob = c2.kd_cob AND c1.kd_scob = c2.kd_scob AND c1.kd_thn = c2.kd_thn AND c1.no_kl = c2.no_kl AND c1.no_mts = c2.no_mts+1000) ), '@py_dt',convert(char(11),c1.tgl_kwi,113))+ char(13)+char(10), @body2 = dbo.fg_cl_email_content_01(c1.kd_cb,c1.kd_cob,c1.kd_scob,c1.kd_thn,c1.no_kl, c1.no_mts), @body3 = char(13)+char(10)+ replace(rtrim(substring(d.html_body_footer,1,4000)), '@ref',c1.kd_cob+c1.kd_scob+'.'+c1.kd_thn+'.'+c1.no_kl+'.'+cast(c1.no_mts-10 00 as varchar(4))) FROM cl03 c1, dp14 d, v_cl00p v, (select top 1 '01' kd_email, rtrim(isnull(r.nm_rk,'')) nm_rk, rtrim(isnull(r.email ,'')) email from t_sec_04 s,rf03 r where s.dt_usr = r.kd_rk and r.kd_grp_rk in ('7','8') and s.kd_usr=system_user) u WHERE c1.kd_cob='K' AND c1.kd_scob='01' AND c1.tipe_mts='D' AND d.kd_email='01' AND c1.no_pol=v.no_pol AND c1.nm_prsh=v.prsh AND c1.no_kyw=v.no_peg AND d.kd_email*=u.kd_email AND c1.kd_cb = @kd_cb AND c1.kd_cob = @kd_cob AND c1.kd_scob = @kd_scob AND c1.kd_thn = @kd_thn AND c1.no_kl = @no_kl AND c1.no_mts = @no_mts SET @body3=replace(@body3,'@remark',replace(@remark,char(13)+char(10),'<br>')) SET @subject_e=@subject+' ('+@to_name+')' exec @Hasil = sp_SendMail_Jmail @FromAddr=@from_addr,@FromName=@from_name, @RecAddr=@to_addr,@RecName=@to_name, @Subject=@subject_e, @HTMLBody=@body1, @HTMLBody2=@body2, @HTMLBody3=@body3, @SMTPServer=@smtp_server IF @Hasil <> 0 RAISERROR('Send message(s) failed!',16,1) ELSE BEGIN UPDATE c SET tgl_email=convert(char(10),getdate(),121),ket=@remark FROM cl03 c WHERE c.kd_cb = @kd_cb AND c.kd_cob = @kd_cob AND c.kd_scob = @kd_scob AND c.kd_thn = @kd_thn AND c.no_kl = @no_kl AND c.no_mts = @no_mts exec @Hasil = sp_SendMail_Jmail @FromAddr=@from_addr,@FromName=@from_name, @RecAddr=@from_addr,@RecName=@from_name, @Subject=@subject_e, @HTMLBody=@body1, @HTMLBody2=@body2, @HTMLBody3=@body3, @SMTPServer=@smtp_server --Return ke PB : --SELECT <flag refresh>,<message>,<column set> --flag refresh: '0' no refresh, '1' refresh data all, '2' current row --message : Message text for MesaggeBox, '' (blank) no message --column set : <nama kolom,value,datatype>[,<...>] -- Datatype: C-har;D-ecimal;L-ong;DT-Datetime SELECT '2','Message(s) have send successfully!','' END RETURN 1 ---------------------------------------------------------- Salam Haris GO SET QUOTED_IDENTIFIER OFF GO SET ANSI_NULLS ON GO --- In [email protected] <mailto:indopb%40yahoogroups.com> , "Matius E" <matius_ek@...> wrote: > > Thanks pak Haris, > Ok lewat smtp google atau telkom, tetapi script panggilnya bagaimana apakah bisa dibantu? Memakai OLE juga? > Thanks > Sent from my BlackBerryR > > -----Original Message----- > From: "haris_qq" <haris_qq@...> > Sender: [email protected] <mailto:indopb%40yahoogroups.com> > Date: Wed, 16 Feb 2011 08:19:05 > To: <[email protected] <mailto:indopb%40yahoogroups.com> > > Reply-To: [email protected] <mailto:indopb%40yahoogroups.com> > Subject: [indopb] Re: Ask: bagaimana program kirim email dg PB? > > Pak Matius, > > Saya biasanyanya memanggil fungsi atau fasilitasnya sql server untuk mengirim email. > > Jadi PB hanya exec sp send emailnya sql server. SMTP nya bisa pakai smtp.telkom.net atau punya smtp.google.com > > Salam > Haris. > > --- In [email protected] <mailto:indopb%40yahoogroups.com> , "Matius E" <matius_ek@> wrote: > > > > Halo, saya beginner di PB, mau tanya bagaimana buat kirim email dg PB? > > Thanks > > > > Sent from my BlackBerryR > > > > -----Original Message----- > > From: zulmach <zulmach@> > > Sender: [email protected] <mailto:indopb%40yahoogroups.com> > > Date: Wed, 16 Feb 2011 14:33:15 > > To: <[email protected] <mailto:indopb%40yahoogroups.com> > > > Reply-To: [email protected] <mailto:indopb%40yahoogroups.com> > > Subject: Re: [indopb] Re: Tanya *. PBX di Appeon > > > > coba di convert pk tools pbx2pbd cek helpnya ya > > > > Voice. +62 816 74 77 67 > > Text. +62 856 10000 74 > > email. zulmach@ > > YMID. zulmach > > Website. www.zulmach.wordpress.com > > www.pemulapb.wordpress.com > > > > > > 2011/2/16 haris_qq <haris_qq@> > > > > > > > > > > > Om Zulmac, > > > > > > Pb nya versi 11.5 dengan appeon versi 6.5, saat proses wizzard untuk > > > konversinya, u_pivot hasil import dari pivot.pbx tidak bisa terkonversi ke > > > u_pivot.js ada pesan error appeonnya tidak bisa meload pivot.pbx. > > > > > > Salam > > > Haris > > > > > > > > > --- In [email protected] <mailto:indopb%40yahoogroups.com> , zulmach <zulmach@> wrote: > > > > > > > > *.pbx merupakan powerbuilder extension yaitu fitur yang memungkinkan kita > > > > membuat component/object/class/function diluar powerbuilder > > > (c++,java,dll) > > > > yang bisa diakses oleh poewrbuilder melalui PBNI (powerbuilder native > > > > interface) > > > > > > > > apa bs lebih spesifik PB dan Appeonnya versi brp ? > > > > dan lebih detail error/masalahnya apa? > > > > > > > > > > > > Voice. +62 816 74 77 67 > > > > Text. +62 856 10000 74 > > > > email. zulmach@ > > > > > > > YMID. zulmach > > > > Website. www.zulmach.wordpress.com > > > > www.pemulapb.wordpress.com > > > > > > > > > > > > 2011/2/16 haris_qq <haris_qq@> > > > > > > > > > > > > > > > > > > > > > > Dear All, > > > > > > > > > > Saya baru saja migrasi Aplikasi Desktop ke web menggunakan appeon, > > > semua > > > > > berjalan lancar kecuali file *.PBX tidak bisa, Apakah ada cara > > > tersendiri > > > > > untuk mengatasi ini. > > > > > > > > > > Untuk teman-teman yang sudah pengalaman di appeon, mohon bantuan dan > > > > > sarannya > > > > > > > > > > Salam > > > > > Haris > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
<<image001.jpg>>
<<image002.jpg>>
