Dear All,
Saya membuat program ini dan berjalan dengan baik,
saya memakai cara yang pertama , thanks buat mas
purwedi.:
Sub
SendMailWithCDO()
Dim oCDO As New CDO.Message
With oCDO
.Subject = "testing email"
.To = " [EMAIL PROTECTED]"
.TextBody = "this is testing email sended by visual basic"
.From = " [EMAIL PROTECTED]"
.Send
End With
Set oCDO = Nothing
End Sub
Tapi saya tidak bisa membuat package instalan buat di
client, muncul
"error stack" sehingga saya
mengcopy manual, exe-nya, dan dll-nya buat di client.
Yang saya ingin tanyakan, file dll- mana yang dibutuhkan untuk bisa
berjalan di client, soalnya di client tidak bisa jalan.
Mohon penjelasannya.
Thanks
Rgds/ Ridwan
Purwedi Kurniawan wrote, On 3/17/2006 2:19 PM:
dari program? gampang, tinggal simpan
aja alamat AutoCC or AutoBCC nya di konstanta atau variabel, terus set
properties BCC atau CC di fungsi pengirimannya biar otomatis kirim
kesono. properties ini ada disemua object tadi kok mas padu :)
buat mas vavai, bisa nggantiin
autoforwardnya gmail tu mas kekeke...
best regards
[wwn]
On 3/17/06, Padu Arsana W <[EMAIL PROTECTED]> wrote:
Wah...ni baru topik seru :), kalo kirim email aja bisa
via vb besar kemungkinan Autocc / AutoBCC atowa Out Of Office Assistant
juga bisa dibuat.....
mmm.... kira-kira gimana ya, ngebuatnya ?? ![]()
Salam,
Padu Arsana I Wayan
Nusa Penida, Klungkung - Bali
kirim email pake vb? tentu saja
bisa! jangankan vb, pake _vbscript_ aja bisa :)
ini pertanyaan dari temanku tadi
pagi, n kayaknya topic ini menarik buat para vbers, jadi sekalian aja
saya kirim ke milis ini.
ada banyak cara buat ngirim email
dari vb, semuanya tergantung dari mail server yg kita gunakan. kalau
kita pake microsoft based spt Exchange Server, IIS kita bisa pake CDO
1.2x library (kita bisa pake object CDO.Message atau Mapi.Session),
CDONTS (collaboration data object for nts, biasanya file ini udah ada
di win 2000, tapi di xp ga ada), aspmail.dll, vbsendmail.dll (keduanya
gratis, cari aja di internet), atau kalau pake Lotus Notes kita bisa
pake Lotus Notes Automation Class, dan lain sebagainya, googling aja di
internet :)
berikut ini beberapa contoh
pemakaiannya (kode2 ini bisa di pake di vb6, asp, _vbscript_, dan vba)
'add references to Microsoft CDO
Sub SendMailWithCDO()
Dim oCDO As New CDO.Message
With oCDO
.Subject = "testing email"
.To = " [EMAIL PROTECTED]"
.TextBody = "this is testing email sended by visual basic"
.From = " [EMAIL PROTECTED]"
.Send
End With
Set oCDO = Nothing
End Sub
'add references to Microsoft
Collaboration Data Object for NTS
Sub SendMailWithCDONTS()
Dim objNewMail As CDONTS.NewMail
Set objNewMail = New CDONTS.NewMail
With objNewMail
.From = "[EMAIL PROTECTED]
"
.To = " [EMAIL PROTECTED]
"
.Body = "congrat"
.Subject = "hi kids"
.Importance = 1
.Send
End With
Set objNewMail = Nothing
End Sub
'add references to Lotus Notes
Automation Class
Sub SendMailWithLotusNotes()
Dim oNotesSession As Object
Dim oNotesDB As Object
Dim oNotesDoc As Object
Set >
Set "names.nsf")
Set ()
With oNotesDoc
.Form = "memo"
.SendTo = "
[EMAIL PROTECTED] "
.Subject = "set email subject here"
.Body = "set email body here"
Call .Send(False)
End With
MsgBox "Message sent.", vbInformation
Set
Set >
Set >
End Sub
best regards
[wwn]
ps: berdasarkan pengalaman
saya, cdonts mempunyai sedikit kelemahan, yaitu tidak adanya pengecekan
kevalidan alamat email dibagian from-nya, jadi
bisa saja kejadian alamat email yg disana itu ga valid sama sekali.
plus cdonts jg recommended running di win2000 sp2+.
__._,_.___
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
![]()
SPONSORED LINKS
YAHOO! GROUPS LINKS
__,_._,___
|
