Foros del Web - Ver Mensaje Individual

TomaHawkk · #4 (**permalink**) 26/06/2002, 01:33

Aquí te dejo un ejemplo de como "Enviar un e-mail en formato HTML utilizando CDONTS", otro componente, quizás te interese: ;)

Código:

&lt;%
  Dim objMail
  Set objMail = Server.CreateObject(&quot;CDONTS.NewMail&quot;)
   
  '//these are all the images that are in this message.
  '//you must include them like this.
  '//please note that you DO NOT have TO write the
  '//entire file path in the &lt;IMG&gt; tag in the body after this.
  '//make sure you see the image name after the path separated by a comma
   
  objMail.AttachURL &quot;D:\images\myImage.gif&quot;, &quot;myImage.gif&quot; 
  objMail.AttachURL &quot;D:\images\myImage2.gif&quot;, &quot;myImage2.gif&quot; 

 
  HTML = HTML &amp; &quot;&lt;HTML&gt;&quot;
  HTML = HTML &amp; &quot;&lt;HEAD&gt;&quot;
  HTML = HTML &amp; &quot;&lt;TITLE&gt;Send Mail with HTML&lt;/TITLE&gt;&quot;
  HTML = HTML &amp; &quot;&lt;/HEAD&gt;&quot;
  HTML = HTML &amp; &quot;&lt;BODY  bgcolor=&quot;&quot;lightyellow&quot;&quot;&gt;&quot;
  HTML = HTML &amp; &quot;&lt;TABLE cellpadding=&quot;&quot;4&quot;&quot;&gt;&quot;
  HTML = HTML &amp; &quot;&lt;TR&gt;&lt;TH&gt;&lt;FONT color=&quot;&quot;darkblue&quot;&quot;  SIZE=&quot;&quot;4&quot;&quot;&gt;&quot;
  HTML = HTML &amp; now() &amp; &quot; - &quot;
  HTML = HTML &amp; &quot;These are all great ASP Sites&lt;/FONT&gt;&lt;/TH&gt;&lt;/TR&gt;&quot; 
  HTML = HTML &amp; &quot;&lt;TR&gt;&lt;TD&gt;&quot;
  HTML = HTML &amp; &quot;&lt;A HREF=&quot;&quot;http://www.4guysfromrolla.com&quot;&quot;&gt;&quot;
  HTML = HTML &amp; &quot;&lt;IMG SRC=&quot;&quot;myImage.gif&quot;&quot;&gt;&lt;/A&gt;&lt;BR&gt;&lt;BR&gt;&quot;
  HTML = HTML &amp; &quot;&lt;A HREF=&quot;&quot;http://www.4guysfromrolla.com&quot;&quot;&gt;&quot;
  HTML = HTML &amp; &quot;&lt;IMG SRC=&quot;&quot;myImage2.gif&quot;&quot;&gt;&lt;/A&gt;&lt;BR&gt;&lt;BR&gt;&quot;
  HTML = HTML &amp; &quot;&lt;/FONT&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;/TABLE&gt;&lt;BR&gt;&lt;BR&gt;&quot;
  HTML = HTML &amp; &quot;&lt;/BODY&gt;&quot;
  HTML = HTML &amp; &quot;&lt;/HTML&gt;&quot;
  
  objMail.From = &quot;[email protected]&quot;
  objMail.Subject = &quot;Your daily HTML Mail&quot;
      
  'you need TO add these lines FOR the mail
  'to be sent in HTML format
  objMail.BodyFormat = 0 
  objMail.MailFormat = 0 

  objMail.To = &quot;[email protected]
  objMail.Body = HTML
  objMail.Send
  
  Response.write(&quot;Mail was Sent&quot;)
  set objMail = nothing
%&gt;

Suerte!