Email ala vfp

Subyek: Email ala vfp Mon Jun 09, 2008 10:37 pm

Hai semua ...
Mungkin ni coding udeh basi tapi ga’ pa2 dech ..
Mana tau ada yg membutuhkan.. semoga membantu, he..he..

Pertme2 :
1. buat 3 textbox (txtKepada,txtTopik,txtPesan)
2. buat 3 command button (kirim, lampiran, keluar)
3. buat 1 grid aje...
4. trus buat ActiveX Controls Ms. MAPI Session Kontol (Ups.. Control) Ver. 6
Ms. MAPI Messages Control ver. 6.
5. buat method baru (lampiran)
6. terakhir Untuk ActiveX Controls copy file ocx pada C:WINDOWS\system\msmapi32.ocx

Code:: Form.Init
SET NOTIFY OFF
SET DATE BRITISH
SET CENTURY ON
SET SAFETY OFF

thisform.txtKepada.Value="arfan_dodol@yahoo.com"
thisform.txtTopik.Value="Subjek Email"
thisform.txtPesan.Value="Kirim Email Ala VFP"

Form.Load
CREATE CURSOR lamp(NamaFile c(20), LokasiFolder c(100))

Form.Lampiran (property)
PARAMETERS xxxfile
LOCAL zzzfile,xdol,zdol
zzzfile=ALLTRIM(xxxfile)
xdol=RATC("\",zzzfile)
zdol=LEN(zzzfile)
RETURN SUBSTR(zzzfile,xdol +1,zdol - xdol)

Tombol Lampiran.click
LOCAL yfile
yfile = GETFILE("*", "Nama File :", "Add", 0, "Pilih File Lampiran")
IF !EMPTY(yfile)
INSERT INTO lamp( NamaFile, LokasiFolder ) VALUES (thisform.lampiran ( yfile ),ALLTRIM(yfile))
thisform.gridlampiran.Refresh
ENDIF

Tombol Kirim.click
WITH thisform
WAIT WINDOW NOWAIT "Silahkan tunggu ... Masuk ke sistem Email" NOCLEAR

.oleSession.Signon

IF .oleSession.SessionID > 0
.oleMessage.SessionID = .oleSession.SessionID
ELSE
=MESSAGEBOX("Gagal aktifkan Koneksi ", 0+16, " Periksa Koneksi Anda")
RETURN
ENDIF

.oleMessage.Compose
ENDWITH

WAIT CLEAR
WAIT WINDOW "Sedang Proses ..." NOWAIT

WITH thisform
.oleMessage.RecipAddress = ALLTRIM(LOWER(Thisform.text1.Value))
.oleMessage.MsgSubject = thisform.text2.Value
.oleMessage.MsgNoteText = thisform.text3.Value

xy=0
SELECT lamp
SCAN

.oleMessage.AttachmentIndex =xy
.oleMessage.AttachmentPathname =lamp.Folder
xy=xy+1
ENDSCAN

.oleMessage.Send(0)

.oleMessage.Compose

ENDWITH
WAIT CLEAR

Tombol Keluar
Thisform.release()

Selamat mencoba... thumbs up

Subyek: Re: Email ala vfp Wed Jun 11, 2008 4:10 pm

Pak sangak, sistemnya penggunaannya berbasis jaringan (LAN) Intranet ato Internet gitu..??
Thanks before.. thumbs up