Re: [Programmer-VB] kirim email pake vb?

Thu, 16 Mar 2006 23:19:42 -0800

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
 

Purwedi Kurniawan <[EMAIL PROTECTED]> wrote:
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
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke