<div>
the easiest and safest way to send e-mails with VB6 is to use the free <a href="http://www.freevbcode.com/ShowCode.Asp?ID=109" rel="ugc">http://www.freevbcode.com/ShowCode.Asp?ID=109</a>
</div>


<div>
You could but I don't have a safe link to give you.
</div>


<div>
Can you give me a vbSendMail.dll example that uses Yahoo or GMail ? Can i use it for these two sites?
</div>


<div>
There are code examples when you download it. I never used it for those sites. Usually, it is the same as any other e-mail provider except the port that you have to use (which is often 465 or 587). 
</div>


<div>
Unfortunately, vbSendMail doesn't work using Gmail or Yahoo account settings for sending. This is because they both use SSL, which vbSendMail doesn't support. <br />
<br />
The only way I've been able to send emails using SSL accounts in VB6 is by using the Microsoft CDO object, which relies on Outlook being installed, configured (for the SMPT server) and running on the client machines. Personally, I prefer to use vbSendMail using a non-SSL SMTP server account--most normal ISPs don't use SSL--as the only thing you need to be sure the client machines have are the VB6 runtimes and MSWINSCK.OCX registered.
</div>


<div>
&gt;&gt;This is because they both use SSL, which vbSendMail doesn't support.<br />
<br />
I wasn't aware of that .<br />
<br />
Maybe have a look at <a href="http://www.vbforums.com/showthread.php?t=517734" rel="ugc">http://www.vbforums.com/showthread.php?t=517734</a>
</div>


<div>
good morning!<br />
<br />
<br />
try this approach!<br />
<br />
<br />
sub SendEmail()<br />
&nbsp; &nbsp; Dim objMsg As Object<br />
&nbsp; &nbsp; Dim objConfi As Object<br />
&nbsp; &nbsp; Dim strBody As String<br />
&nbsp; &nbsp;<br />
&nbsp; &nbsp; Set objMsg = CreateObject(&quot;CDO.Message&quot;<wbr />)<br />
&nbsp; &nbsp; Set objConfi = CreateObject(&quot;CDO.Configur<wbr />ation&quot;)<br />
&nbsp; &nbsp;<br />
&nbsp; &nbsp; With objMsg<br />
&nbsp; &nbsp; &nbsp; &nbsp; Set .configuration = objConfi<br />
&nbsp; &nbsp; &nbsp; &nbsp; .to = &lt;receiver&gt;<br />
&nbsp; &nbsp; &nbsp; &nbsp; .from = &lt;sender&gt;<br />
&nbsp; &nbsp; &nbsp; &nbsp; .Subject = &quot;Test&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; .textbody = &quot;This is a test message only.&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; .AddAttachment &lt;path of the file to attached&gt; &nbsp; &nbsp; ' example &quot;C:\test.txt&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; .send<br />
&nbsp; &nbsp; End With<br />
&nbsp; &nbsp;<br />
&nbsp; &nbsp; MsgBox &quot;OK&quot;<br />
end sub<br />
<br />
<br />
i hope i could give u idea...<br />
<br />
game-master
</div>


<div>
Simply setting the CDO's From, To, Subject and Body elements isn't enough for SSL accounts like those specified by the author Cristi_E (GMail or Yahoo). For those types of accounts you have to specify the configuration details before defining the basic elements. <br />
<br />
Oh, and there is another problem with CDO for W2K... for some reason it doesn't seem to work on SSL accounts in conjunction with Outlook 2007! <br />
<br />
Anyway, here is an example of the CDO code I managed to send an email with using a Yahoo account and from a machine with Outlook 2003 on it:<br />

<pre><code class="code-10 nolinks" id="code-274971"><span>Dim cdoCfg As New CDO.Configuration</span>
<span>Dim cdoMsg As New CDO.Message</span>
<span> </span>
<span>    cdoCfg.Load cdoDefaults</span>
<span> </span>
<span>    With cdoCfg.Fields</span>
<span>        !cdoSMTPUseSSL = True</span>
<span>        !cdoSMTPAuthenticate = cdoBasic</span>
<span>        !cdoSendUserName = mySSL_Account_UserName</span>
<span>        !cdoSendPassword = mySSL_Account_Password</span>
<span>        !cdoSMTPServer = mySSL_SMTP_Server</span>
<span>        !cdoSendUsingMethod = cdoSendUsingPort</span>
<span>        !cdoSMTPServerPort = 465</span>
<span>        !cdoSMTPConnectionTimeout = 100</span>
<span>        .Update</span>
<span>    End With</span>
<span>        </span>
<span>    With cdoMsg</span>
<span>        Set .Configuration = cdoCfg</span>
<span>        .From = &quot;please_pay@ention.com&quot;</span>
<span>        .To = &quot;hey_you@theback.com&quot;</span>
<span>        .Subject = &quot;CDO SSL Test&quot;</span>
<span>        .TextBody = &quot;This is a test of CDO mail&quot;</span>
<span>        .Send</span>
<span>    End With</span>
<span>    Set cdoMsg = Nothing</span>
<span>    Set cdoCfg = Nothing</span>
</code></pre>
</div>


<div>
<br />
Thank you for your posts, &nbsp;Antagony1960! &nbsp; &nbsp;Somehow i can't succceed with your code. The only moddifications i made were:<br />
&nbsp; &nbsp; mySSL_Account_UserName = &quot;myemailadress&quot; &nbsp; &nbsp; 'without &nbsp; '@yahoo.com'<br />
&nbsp; &nbsp; mySSL_Account_Password = &quot;myemailpassword&quot;<br />
&nbsp; &nbsp; mySSL_SMTP_Server = &quot;smtp.yahoo.com&quot;<br />
<br />
&nbsp; &nbsp; What did i missed? &nbsp; I have Outlook 2002 installed on my computer.<br />
&nbsp; &nbsp;It turns me no error..... &nbsp;but the message never arrives....to gmail &nbsp; or even my yahoo adress...<br />
&nbsp; &nbsp; Thanks!<br />
&nbsp;<br />

</div>


<div>
Do you also have your Outlook configured for your Yahoo account? If you can send emails from Outlook with the Yahoo account, I would have thought you should be able to get the code to work.<br />
<br />
On mine I found had use my full email address for the UserName and I'm not sure whether your mail server setting is correct; my Yahoo account is a .uk domain and the mail server is set to &quot;smtp.mail.yahoo.co.uk&quot; - I would have thought standard Yahoo accounts would have the same setting but with .com &nbsp;on the end. 
</div>


<div>
<br />
<br />
good morning!<br />
<br />
my posted snippets works fine...<br />
i hope u tried it to...<br />
<br />
<br />
game-master
</div>


<div>
Hello game-master<br />
&nbsp; &nbsp; &nbsp;I have tryed you code but no luck. &nbsp; If you can send me a example working project on yahoo or gmail would be verry helpfull!<br />
<br />
&nbsp; &nbsp;Thanks! 
</div>


<div>
@Crist_E:<br />
<br />
Where are you based? Only I thought I'd try to find out what Yahoo's SMTP server is and I noticed <a href="http://help.yahoo.com/l/us/yahoo/mail/original/mailplus/pop/pop-35.html;_ylt=Ar219JQf6Xnh9ozyO77y7msKzyN4" rel="ugc">they're saying</a> that POP mail is now only available for Mail Plus accounts. According to <a href="http://%20http://en.wikipedia.org/wiki/Yahoo%21_Mail#Free_version" rel="ugc">this Wikipedia article</a> their free accounts only allow POP in certain countries (not the US). <br />

</div>


<div>
I have a simple (free) Yahoo! Mail account, and i can't access it with Outlook Express 6. &nbsp;But i think that i should be able to send mail on behalf of that account
</div>


<div>
I'm not even sure that CDO will work with Outlook Express. All I know is it works on my old XP machine with Outlook 2003, but Outlook has to be both configured for the account and running or it fails. <br />
<br />
If the reason it doesn't work for you is because of Yahoo's POP policy, I've heard that it's possible to get around that by logging on to your account and changing your location to Asia. Another one I've heard is that it's possible to use the settings used for iPhones; i.e smtp.mobile.mail.yahoo.com<wbr /> on port 25. Both might be worth a try. 
</div>


<div>
good morning!<br />
<br />
try this...<br />
<br />
goto PROJECT&gt;REFERENCES&gt;MICROSO<wbr />FT CDO FOR WINDOWS 2000 LIBRARY<br />
<br />
<br />
use this code...<br />
<br />
sub sendEmail()<br />
&nbsp; &nbsp;Dim objCDO As New CDO.Message<br />
&nbsp; &nbsp;<br />
&nbsp; &nbsp; With objCDO<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;.Subject = &quot;Test&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;.From = &quot;alvindoliente@yahoo.com&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;.To = &quot;addoliente@findme.com.ph&quot;<wbr /><br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;.TextBody = &quot;Hello alvin... this is a test message.&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;.Send<br />
&nbsp; &nbsp; End With<br />
end sub<br />
<br />
i hope this will give u idea...<br />
<br />
<br />
*** this codes works fine with me and I'm using this on my program...<br />
are your sure this code doesnt work with you?<br />
<br />
<br />
game-master<br />

</div>


<div>
Hello game-master<br />
&nbsp; &nbsp; I have used your code now exactly as it is with no modifications. Instead of linking MICROSOFT CDO FOR WINDOWS 2000 LIBRARY (CDOSYS) (it is not available on my VB6) i've linked MICROSOFT CDO FOR EXCHANGE 2000 LIBRARY(CDOEX). But i've searched the net and found this article <a href="http://support.microsoft.com/kb/318823" rel="ugc nofollow">http://support.microsoft.com/kb/318823</a>&nbsp;that says &quot;CDOEX is a superset of CDOSYS. This means that CDOEX contains all of the functionality of CDOSYS, plus additional functionality for use with Microsoft Exchange Server 2000&quot; ... so it should be no problem.<br />
&nbsp; &nbsp;I have also found this threat: <a href="http://www.webhostingtalk.com/showthread.php?t=505770" rel="ugc">http://www.webhostingtalk.com/showthread.php?t=505770</a><br />
&nbsp; Unfortunatelly i can't make it work.<br />
&nbsp; &nbsp;
</div>


<div>
This is a screen-shot with the error.<br />
<a href="https://filedb.experts-exchange.com/incoming/2009/03_w12/117600/Error-80040211.bmp" target="_blank" class="file-inline" title="Error running program (2.3 MB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Error-80040211.bmp</a>
</div>


Error-80040211.bmp

<div>
Thank you verry much for your support. I really appreciate it!
</div>


<div>
<div class="content wysiwyg-content">
Hy experts,<br />
&nbsp; &nbsp; I need to develop a Visual Basic 6 application that will send me an email in certain circumstances.<br />
&nbsp; Do you have any ideeas on what is the most convenient way to accomplish that?
</div>
</div>


Hy experts,
    I need to develop a Visual Basic 6 application that will send me an email in certain circumstances.
  Do you have any ideeas on what is the most convenient way to accomplish that?

Send Email VB6

Within Internet message handling services (MHS), a message transfer agent or mail transfer agent (MTA) or mail relay is software that transfers electronic mail messages from one computer to another using a client–server application architecture. A MTA implements both the client (sending) and server (receiving) portions of the Simple Mail Transfer Protocol (SMTP). The terms mail server, mail exchanger, and MX host may also refer to a computer performing the MTA function. The Domain Name System (DNS) associates a mail server to a domain with mail exchanger (MX) resource records containing the domain name of a host providing MTA services.

Email Servers

Interactions between email servers and clients are governed by email protocols. The three most common email protocols are POP, IMAP and MAPI. Most email software operates under one of these (and many products support more than one).  The correct protocol must be selected, and correctly configured, if you want your email account to work.

Email Protocols

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.