Saya di kantor pakai PB 10.5. Untuk kirim email melalui PB seperti script di bawah ini apakah saya harus install software lain di luar PB? Kalau ya apakah nantinya software tersebut juga harus diinstall di komputer user ketika didistribusikan? Trims
----- Original Message ---- From: Francis Dendi <[EMAIL PROTECTED]> To: [email protected] Sent: Monday, March 31, 2008 1:45:58 PM Subject: Re: [indopb] cara kirim email dr PB coba test aja ini ya : 1. bikin tombol cb_1. biasa isi dengan script : String ls_null,ls_subject, ls_note Setnull(ls_null) ls_subject=' Akseptasi Claim' ls_note='Berikut lampiran akseptasi klaim kami. Terima kasih' f_mail_attach_ pdf_to_client_ smtp(ls_subject, ls_note,' C:\aplikasi\ akseptasi. pdf','C:\ aplikasi\ akseptasi. xls',ls_null, ls_null,ls_ null,ls_null,& ls_null,ls_null, ls_null,ls_ null,ls_null, ls_null) 2. Bikin function f_mail_attach_ to_pdf_client_ smtp argument function : - string fs_subject - string fs_note - string path1 - string path1 - string path1 - string path1 - string path1 //script function string ls_mail,ls_msg, ls_body,st_ error oleobject mail long rt1 mail = create oleobject rt1 = mail.connecttonewob ject("Persits. MailSender" ) if rt1 <> 0 then Messagebox(" Error", "Could not create mail object") return -1 else ls_msg='Mail telah berhasil dikirim ke ~n' mail.Reset mail.Host = "128.20.10.103" ls_mail=//alamat email yg ingin dituju atau si Penerima, mis :'[EMAIL PROTECTED] com' ls_msg=ls_msg+ ls_mail+' ~n' mail.AddAddress( ls_mail) ls_mail=//alamat email yg ingin di CC, mis :'[EMAIL PROTECTED] com ls_msg=ls_msg+ ls_mail+' ~n' mail.AddCC(ls_ mail) mail.From = //alamat email si Pengirim, mis :'[EMAIL PROTECTED] com mail.FromName = 'Francis' mail.Subject = fs_subject mail.body = fs_note if not isnull(path1) then mail.AddAttachment( path1) End if if not isnull(path2) then mail.AddAttachment( path2) End if if not isnull(path3) then mail.AddAttachment( path3) End if if not isnull(path4) then mail.AddAttachment( path4) End if if not isnull(path5) then mail.AddAttachment( path5) End if if not isnull(path6) then mail.AddAttachment( path6) End if mail.Send mail.disconnectobje ct() messagebox(' Send Mail','Mail telah berhasil dikirim !') messagebox(' Send Mail',ls_msg) end if return 1 ----- Original Message ---- From: brian_caker <[EMAIL PROTECTED] com> To: [EMAIL PROTECTED] com Sent: Monday, March 31, 2008 1:28:08 PM Subject: [indopb] cara kirim email dr PB ada yg tau script untuk sending email dr PB?baik itu ada attachmentnya or tidak ada attachmentnya terima kasih ________________________________ Like movies? Here's a limited-time offer: Blockbuster Total Access for one month at no cost.
