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

Go down 
PengirimMessage
sangak
Admin
avatar

Male
Jumlah posting : 150
Age : 33
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
avatar

Male
Jumlah posting : 40
Age : 32
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
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Thread pendaftaran alamat email
» [ASK] Email Resmi PT. Kawasaki Motor Indonesia
» 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: