by B.Cem HANER (8 Submissions)
Category: Internet/HTML
Compatability: VB Script
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(4 Votes)
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)
VBcodersYou 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