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-1000
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], "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 BlackBerry®
>
> -----Original Message-----
> From: "haris_qq" <haris_qq@...>
> Sender: [email protected]
> Date: Wed, 16 Feb 2011 08:19:05
> To: <[email protected]>
> Reply-To: [email protected]
> 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], "Matius E" <matius_ek@> wrote:
> >
> > Halo, saya beginner di PB, mau tanya bagaimana buat kirim email dg PB?
> > Thanks
> >
> > Sent from my BlackBerry®
> >
> > -----Original Message-----
> > From: zulmach <zulmach@>
> > Sender: [email protected]
> > Date: Wed, 16 Feb 2011 14:33:15
> > To: <[email protected]>
> > Reply-To: [email protected]
> > 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], 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
> > > > >
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> >
>
------------------------------------
-----------------------------------------------
IndoPB - Indonesia PB User Group
http://groups.yahoo.com/group/indopbYahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indopb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indopb/join
(Yahoo! ID required)
<*> To change settings via email:
[email protected]
[email protected]
<*> To unsubscribe from this group, send an email to:
[email protected]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
