membuat dan menerima email dg vfp

[superfox]

bro....

sy mau tanya apakah kita bisa membuat aplikasi send email dan menerima email dengan file atach didalamnya, menggunakan vfp dengan teknologi smtp dan pop3?


kalo ada yang bisa kasih samplenya donk....

tengkyu....     

[davidmustakim]

sudah sering dibahas, coba anda search dulu

[rnd]

ini mungkin linknya
http://fox-id.org/smf/index.php/topic,7133.15.html
http://fox-id.org/smf/index.php/topic,5596.0.html

ini juga ada 1 saya copy paste dari salah satu web

 sending email dg menggunakan outlook express atau microsoft outlook akan dihadang dengan security.

sending email dg menggunakan outlook express atau microsoft outlook akan dihadang dengan security yang mana kita harus mengklik tombol yes or no atau send or not send. kita bisa mengirim email tanpa ada peringatan dengan menggunakan software jmail (freeware lho...).
pertama : download software jmail di :
http://www.dimac.net/FreeDownloads/dlstart.asp?ProductID=5 setelah itu jalan file download tsb.

kedua : masukkan code dibawah ini pada command send di form anda.
****start copy*****
PUBLIC oSMTPMail
oSMTPMail = NEWOBJECT("jmail.SMTPMail")
***If you aren't sure leave this commented out
***let the object figure it out for you if possible
***oSMTPMail .ServerAddress = "mail.mchsi.com"
oSMTPMail .ServerAddress = "mail.softhome.net" && isi mail server anda
oSMTPMail.AddRecipient ("willy-w@hotpop.com")
oSMTPMail.Sender = "w1lys@softhome.net"
oSMTPMail.SenderName = "Willy W"
oSMTPMail.Subject = "Percobaan email"
oSMTPMail.Body = "ini isi body email"
oSMTPMail.AddAttachMent ("C:\AutoExec.bat")
oSMTPMail.Execute()
RELEASE oSMTPMail
****akhir copy****

selamat menggunakan....

nb : kode diatas saya ambil dari www.foxite.com

[superfox]

bro udah sy coba tp ada message eror nya sbb:
"Ole IDispacth execeptioncode 0 from jmail.SMTPMail: The message was undeliverable. All servers failed to receive the message"

itu kenapa ya?

mohon pencerahannya...     

tks

[rnd]

Sudah download dan install jmail, saya juga udah lama ngak utak atik ini, tapi masih jalan di client saya

[superfox]

jmail udah sy instal.. tp tetep aj blm bisa

erornya saat "oSMTPMail.Execute()"

[davidmustakim]

errornya mungkin disitu, tapi penyebabnya bisa macam2, nah coba SMS Deddy Cobuzier atau upload koding selengkapnya

[rnd]

masalah di smtpnya pa, kalo saya coba pake smtp saya jalan si

[foxever_fox]

Koneksinya pake apa?
Kalo pake Esia  memang ( umumnya  )  diblok oleh SMTP server

[rnd]

saya juga kurang tau, disaya sih ok ok aja, ngak tau dengan pa Superfox kalo koneksinya pake apa

[GoodOne]

bung rnd saya juga mengalami hal yang sama dengan yang dialami superfox. Saya sudah install jmail, lalu saya coba bikin form baru yang isinya cuma command button. Isi event click saya isi:

PUBLIC oSMTPMail
oSMTPMail = NEWOBJECT("jmail.SMTPMail")
oSMTPMail .ServerAddress = "smtp.mail.yahoo.co.id"
oSMTPMail.AddRecipient ("tester@hotmail.com")
oSMTPMail.Sender = "tester@yahoo.co.id"
oSMTPMail.SenderName = "Tester"
oSMTPMail.Subject = "Percobaan email"
oSMTPMail.Body = "ini isi body email"
oSMTPMail.AddAttachMent ("D:\Readme.txt")
oSMTPMail.Execute()
RELEASE oSMTPMail

ukuran file readme.txt = 5Kb. Sepintas yang saya perhatikan adalah untuk password belum ada commandnya.

mohon petunjuknya, thanks

[GoodOne]

mengirim dan menerima email sudah solved, dapet caranya dari bereznikers.... 

[tonyfm]

Sesuai dengan versi JMail terakhir saat post ini saya ketik, dari situs aslinya (dimac.net) , versi yang sekarang adalah w3JMail v.4.5. Anda bisa daftar, terus download, jalankan file tersebut di komputer yang akan mengirimkan email dari VFP.

Di VFP, sample yang mereka berikan saya sesuaikan sebagai berikut (sesuai dengan sample yang sudah ada di atas).

PUBLIC oSMTPMail
oSMTPMail = NEWOBJECT("JMail.Message")
oSMTPMail.Logging = .T.
oSMTPMail.silent  = .T.

*!* email Pengirim
oSMTPMail.From = "xxx@yyy.net"
oSMTPMail.FromName = "Bp XXX"

*!* email Tujuan
oSMTPMail.AddRecipient("zzz@gmail.com")

oSMTPMail.Subject = "Coba 3"
oSMTPMail.Body = "Ini percobaan nomor 3"

*!* Isi dengan SMTP Server yang digunakan
if not oSMTPMail.Send("mail.yyy.net")
    =MESSAGEBOX(oSMTP.log,0,"Error Sending Email")
else
    =MESSAGEBOX("Message sent succesfully!",0,"Sent")
endif
RELEASE oSMTPMail



Saya coba pakai VFP7 dan berhasil.
Semoga bermanfaat.
Salam.

[cobrot]

Apa kabar, Pak Tony?
berikut saya coba beri alternatif pengiriman email tanpa instalasi jmail. Code aslinya saya temukan di internet menggunakan vbscript, saya lupa urlnya:

Code: [Select]

oSMTPMail = CREATEOBJECT('CDO.Message')
*!* sendusing : 1 => local SMTP, 2=>network SMTP
oSMTPMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
*!* Name or IP of Remote SMTP Server
oSMTPMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.xxx.xxx" && ipaddress mail server
*!* authentication : 0 => Anonymous, 1=>Basic (clear-text), 2=>NTLM
oSMTPMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0

*!* Kalau pake authenticaion :
*!* Your UserID on the SMTP server
*!* oSMTPMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mis"

*!* Your password on the SMTP server
*!* oSMTPMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Put Password Of User Account Here"

*!* Server port (typically 25)
*!* oSMTPMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

*!* Use SSL for the connection (False or True)
oSMTPMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .f.
oSMTPMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oSMTPMail.Configuration.Fields.Update

oSMTPMail.From = "pengirim@namadomain.com" && email account pengirim
oSMTPMail.Subject = "Subyeknya ditulis disini"

oSMTPMail.To = 'penerima@namadomain.com' && email account penerima
oSMTPMail.CC = 'penerima_cc@namadomain.com'

oSMTPMail.TextBody = 'Test... nulis text body-nya di sini...'

*!* Pakai attachment??
oSMTPMail.AddAttachment(tcfile)

oSMTPMail.Send()


RELEASE oSMTPMail

semoga membantu...

[tejos]

mengirim dan menerima email sudah solved, dapet caranya dari bereznikers.... 

Caranya?