• Home
 · 
• Internet/HTML
 · 
• Send EMAIL your local machine with/without SMTP

Send EMAIL your local machine with/without SMTP

Send your emails without SMTP email server on your local machine. You cand create email list and send emails your list ! Easy & powerful !
Thanx for votes..

Inputs
Microsoft CDO for Windows 2000 (XP,2000,2003)

Rate Send EMAIL your local machine with/without SMTP

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

You must add tis reference your project:
Microsoft CDO for Windows 2000 (XP,2000,2003)
Insert this code Command1_Click event. And run !
Ok john. Please dont worry and don't 
hate :) If you are using SMTP server 
please add this lines.. Goog luck 
!
If you are using SMTP server please add this lines your code.
'------------------
Mail.Configuration.Fields.Item("smtpserver") = "smtp.yourserver.com"
Mail.Configuration.Fields.Item("smtpserverport") = 25
Mail.Configuration.Fields.Update

------ STANDART TEXT MESSAGE SEND -----------
Dim Mail As CDO.Message
Set Mail = New CDO.Message
Mail.From = "[email protected]"
Mail.To = "[email protected]"
Mail.Subject = "Your subject"
Mail.TextBody = "MySubject"
Mail.Send
:) OK Your mail is sent !
------ USING CC & BCC FIELDS ------------
Dim Mail As CDO.Message
Set Mail = New CDO.Message
Mail.Subject="Sending email with CDO"
Mail.From="[email protected]"
Mail.To="[email protected]"
Mail.Bcc="[email protected]"
Mail.Cc="[email protected]"
Mail.TextBody="This is a message."
Mail.Send
------ SENDING HTML TYPED MAIL ------------
Dim Mail As CDO.Message
Set Mail = New CDO.Message
Mail.Subject="Sending email with CDO"
Mail.From="[email protected]"
Mail.To="[email protected]"
Mail.HTMLBody = "
This is a message.
" 
Mail.Send
------ SENDING HTML MAIL FROM WEB PAGE ----------
Dim Mail As CDO.Message
Set Mail = New CDO.Message
Mail.Subject="Sending email with CDO"
Mail.From="[email protected]"
Mail.To="[email protected]"
Mail.CreateMHTMLBody "http://www.w3schools.com/asp/" 
Mail.Send
%> 
------ SENDING HTML MAIL FROM WEB PAGE ----------
Dim Mail As CDO.Message
Set Mail = New CDO.Message
Mail=CreateObject("CDO.Message")
Mail.Subject="Sending email with CDO"
Mail.From="[email protected]"
Mail.To="[email protected]"
Mail.CreateMHTMLBody "c:\webs\test.htm" 
Mail.Send
------ SENDING MAIL WITH ATTACHMENT OPTION -----
Dim Mail As CDO.Message
Set Mail = New CDO.Message
Mail.Subject="Sending email with CDO"
Mail.From="[email protected]"
Mail.To="[email protected]"
Mail.TextBody="This is a message."
Mail.AddAttachment "c:\mydocuments\test.txt"
Mail.Send