VB6 - EMAIL SENDER
Posted: Sun Dec 27, 2009 5:23 am
OK welcome to codenstuff vb6.0 tutorial
I'm going to teach you on how to make an email sender using vb6.0
First of all open vb6.0 and select standard exe then
Add this.
1. one big textbox in the bottom of the form then
2. at the top of the big textbox put 6 textbox size what you want.
3. then put label on the side of 6 textbox.
4. label caption "SMTP server" , "Port" , "Username" , "password" , "To" , "Subject".
5. put 2 command and then put in the caption "Send" and the other one is "Reset"
6.put timer and set the interval to 50000 to 100000 and enable = false.
7. put this code in the "Send" button.
PS: I hope u Understand My tutorial.
I'm going to teach you on how to make an email sender using vb6.0
First of all open vb6.0 and select standard exe then
Add this.
1. one big textbox in the bottom of the form then
2. at the top of the big textbox put 6 textbox size what you want.
3. then put label on the side of 6 textbox.
4. label caption "SMTP server" , "Port" , "Username" , "password" , "To" , "Subject".
5. put 2 command and then put in the caption "Send" and the other one is "Reset"
6.put timer and set the interval to 50000 to 100000 and enable = false.
7. put this code in the "Send" button.
Code: Select all
8. Put this code at the "Reset button"
Timer1.Enabled = True
Label7.Caption = "Please Wait....."
Set utilities = CreateObject("CDO.Message")
utilities.From = "New Email"
utilities.To = Text6.Text
utilities.Subject = Text7.Text
utilities.TextBody = Text1.Text
utilities.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
utilities.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
utilities.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
utilities.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Text2.Text
utilities.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Text3.Text
utilities.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Text4.Text
utilities.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Text5.Text
utilities.Configuration.Fields.Update
utilities.Send
Code: Select all
9. And then Put This code in the Timer.
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Code: Select all
10. Save it and then Test It.MsgBox ("YOur Email was Successfully Send")
Timer1.Enabled = False
PS: I hope u Understand My tutorial.