sending an email

[ton9]

I am still trying to work on a program that reads a text file and then sends out that text as an email. right now I am just trying to set it up so I can send one email, then I will make a loop to send multiple emails. I just want to get it functional. My problem is that I keep getting an error message when I set up my mail object. Here is my code. Can someone help me figure out why I keep getting an error on this line.


Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f, strMessage, JMail, strFrom, strTo, strSubject

strFrom= "myName@hotmail.com"
strTo="myName@hotmail.com"
strSubject="April Newsletter"

Set JMail = CreateObject("JMail.SMTPMail&quot

Set fso = CreateObject("Scripting.FileSystemObject&quot
Set f = fspenTextFile("c:\newsletter.txt", ForReading, False)
Do While f.AtEndOfStream <> True
strMessage = f.ReadAll
Loop
f.Close
Set f = Nothing
Set fso = Nothing

JMail.ServerAddress = &quot;mail.mydomain.com&quot;

' This is me....
JMail.Sender = strFrom
JMail.Subject = strSubject

' Get the recipients mailbox from a form (note the lack of a equal sign).
'JMail.AddRecipientex EMail, FirstName&&quot; &quot;&LastName
JMail.AddRecipient strTo

' The body property is both read and write.
' If you want to append text to the body you can
' use JMail.Body = JMail.Body & &quot;Hello world!&quot;
' or you can use JMail.AppendText &quot;Hello World!&quot;
' which in many cases is easier to use.
JMail.Body = strMessage

JMail.AppendText vbNewLine

' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 3

' Send it...
JMail.Execute
Set Jmail = nothing

 

[LnOrS]

Hi,

Try to use NewMail Object (CDONTS Library),

http://msdn.microsoft.com/library/psdk/cdo/_denali_newmail_object_cdonts_library_.htm.

Regards,
Luís Silva

 

[foxbox]

and maybe ASPmail (free!) from Persits Software (

http://www.persits.com)

is an alternative. br
Gerard
(-:

Better a known bug then a new release.