How To Send Mail Using CDO Visual Basic - Sharing

Cari Blog Ini

03 Desember 2013

How To Send Mail Using CDO Visual Basic

Apply To : * Microsoft Visual Basic 6 * Windows Live Mail Problem : * Want to sending mail using code Visual Basic 6 Solution : 1. First, Go to menu "Project > References ... ". Add for "Microsoft CDO for Windows 2000 Library" 2. Check for Windows Live Mail Settings, 3. Design an Example Form below 4. Copy the below code to "Form1.frm" '------------------------------------------------------------------------------------------- '------------------------------------------------------------------------------------------- '----CODE START Private Sub Command1_Click() Dim EmailAttachments_1(2) As String EmailAttachments_1(0) = "E:\AttachFile_Test-01.txt" EmailAttachments_1(1) = "E:\AttachFile_Test-02.txt" EmailAttachments_1(2) = "E:\AttachFile_Test-03.txt" Call SendMail("[email protected]", _ "[email protected]", "[email protected]", "[email protected]", _ "Subject - Test", "Content - Test", _ "mail.domain.co.id", "25", _ "name", "password", _ EmailAttachments_1(), _ 0) MsgBox "Sending Mail successfully..." End Sub Public Function SendMail _ (sFrom As String, _ sTo As String, sCC As String, sBCC As String, _ sSubject As String, sBody As String, _ sSmtpServer As String, iSmtpPort As Integer, _ sSmtpUser As String, sSmtpPword As String, _ EmailAttachments() As String, _ bSmtpSSL As Boolean) As String On Error GoTo SendMail_Error: Dim lobj_cdomsg As CDO.Message Dim i As Integer Set lobj_cdomsg = New CDO.Message lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = sSmtpServer lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = iSmtpPort lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = bSmtpSSL lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic lobj_cdomsg.Configuration.Fields(cdoSendUserName) = sSmtpUser lobj_cdomsg.Configuration.Fields(cdoSendPassword) = sSmtpPword lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 30 lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort lobj_cdomsg.Configuration.Fields.Update lobj_cdomsg.To = sTo lobj_cdomsg.CC = sCC lobj_cdomsg.BCC = sBCC lobj_cdomsg.From = sFrom lobj_cdomsg.Subject = sSubject lobj_cdomsg.TextBody = sBody '---For add attachments if any For i = LBound(EmailAttachments) To UBound(EmailAttachments) If FileExists(EmailAttachments(i)) Then lobj_cdomsg.AddAttachment (EmailAttachments(i)) End If Next i lobj_cdomsg.Send Set lobj_cdomsg = Nothing SendMail = "ok" Exit Function SendMail_Error: SendMail = Err.Description End Function Function FileExists%(filename$) Dim f% '---Trap any errors that may occur On Error Resume Next '---Get a free file handle f% = FreeFile Open filename$ For Input As #f% Close #f% FileExists% = Not (Err <> 0) End Function '----CODE END '------------------------------------------------------------------------------------------- '------------------------------------------------------------------------------------------- A. B. C. D. 5. Try to run the code, click "F5" or "Start". Next, click "Send Mail" 6. Next, check in Inbox of Windows Live Mail For download an example code, please click this link : Example Code - Sending Mail CDO VB.rar Source : * http://p2p.wrox.com/pro-vb-6/34636-using-vb6-send-email-attachment.html * http://www.eng-tips.com/viewthread.cfm?qid=141175 Labels: IT - - How To or Guide Posting Lebih Baru Posting Lama Beranda

Translate

Label

• 00 Note (3)
• Cerita - Sang Buddha (30)
• Cerita - Sang Buddha Pelindungku I (10)
• Cerita - Sang Buddha Pelindungku II (7)
• Cerita - Sang Buddha Pelindungku III (9)
• Cerita - Sang Buddha Pelindungku IV (8)
• Cerita - Sang Buddha Pelindungku V (12)
• Cerita - Sang Buddha Pelindungku VI (3)
• Dhamma (89)
• Dhamma - Comic / Komik (88)
• Dhamma - Di Zi Gui (64)
• Dhamma - Historical Places (26)
• Dhamma - Keluarga (38)
• Dhamma - Keluarga - Bakti Kepada Orang Tua (42)
• Dhamma - Keluarga - Kisah tentang Bakti kepada Orang Tua (33)
• Dhamma - Kisah Buddhist (10)
• Dhamma - Kisah Para Suci (47)
• Dhamma - Kisah Paritta (9)
• Dhamma - Kutipan (425)
• Dhamma - Manfaat (117)
• Dhamma - Sutra Buddha (88)
• Dhamma - Sutra Buddha - Di Zang Pu Sa Ben Yuan Jing (15)
• Dhamma - Sutra Buddha - Ksitigarbha Purva Pranidhana Sutra (8)
• Dhamma - Sutra Buddha - Thian A Kung (5)
• Dhamma - Tipitaka (25)
• Dhamma - We Must Know (19)
• Dhamma - Web (61)
• EN - Conv (164)
• EN - Conversation (53)
• EN - Exercise (387)
• EN - Exercise 2 (57)
• EN - Grammar (203)
• EN - Idiom (12)
• EN - Practice (27)
• EN - Pronunciation (14)
• EN - Rumus (1)
• EN - SD 4 (19)
• EN - SD 5 (16)
• EN - SD 6 (14)
• EN - Sentence (37)
• EN - Sentence Vocab (5)
• EN - Vocabulary (706)
• for Kid Kit (37)
• for Kid Kit - Colouring / Mewarnai (127)
• for Kid Kit - Comic (25)
• for Kid Kit - Kerajinan Tangan (37)
• for Kid Kit - Lyric Lagu (48)
• for mom - Hiasan Hidangan (3)
• IPA (43)
• IT - - How To or Guide (56)
• IT - - Warning or Error (7)
• IT - Data Warehouse (156)
• IT - Database - Concept (109)
• IT - Database Performance (37)
• IT - Information Systems (IS) (245)
• IT - Information Systems (IS) - UML (7)
• IT - Information Technology (85)
• IT - Information Technology - Code (5)
• IT - SQL Server - Concept (73)
• IT - SQL Server - How To or Guide (143)
• IT - SQL Server - Warning or Error (29)
• Math (152)
• MTK (1342)
• MTK - Rumus (2)
• MTK - Tips (8)
• MTK - Trik (1)
• Psikologi (19)
• Seni Budaya (2)
• Tematik (5)
• TK B (9)
• TK B - Berhitung (8)
• TK B - Membaca (7)
• Trip (1)
• x - Melodi (16)
• x - Nasehat / Renungan (42)
• x - Quote (297)
• x - Setetes Pencerahan / Lentera / Cermin (101)
• xx - Teka Teki (1)
• xx - Tips for Home (19)