Komunitas Informatika Aneuk Nanggröe

Dengan Agama hidup menjadi terarah, dengan Ilmu hidup menjadi mudah dan dengan seni hidup menjadi indah..!!
 
IndeksPortalFAQPencarianPendaftaranLogin

Share | 
 

 Email ala vfp

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
sangak
Admin


Male
Jumlah posting : 150
Age : 31
Lokasi : Banda Aceh, NAD
Registration date : 07.06.08

PostSubyek: 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

_________________


"Ambil itu sebagai Bahan Perenungan..! Kita tidak akan menemukan suatu jawaban kecuali kita terus menggalinya lebih dalam dan semakin dalam..!!"
Kembali Ke Atas Go down
Lihat profil user http://d3mi-unsyiah.forumi.biz
teuku arfan
SD


Male
Jumlah posting : 40
Age : 31
Lokasi : Panteriek
Registration date : 07.06.08

PostSubyek: 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
Kembali Ke Atas Go down
Lihat profil user
 
Email ala vfp
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» [ASK] Email Resmi PT. Kawasaki Motor Indonesia
» Thread pendaftaran alamat email
» pengaduan keluhan PT DIANA INDONESIA, main dealer kwak makassar
» Thread untuk aktivitas 23/12

Permissions in this forum:Anda tidak dapat menjawab topik
Komunitas Informatika Aneuk Nanggröe :: General Category :: Pemrograman :: FoxPro-
Navigasi: