Having troubles! Code for email!

I have been to PSC already.

I'm looking for some code for sending email with multiple attachments that will work over a modem?

Thanks!

Can someone tell me why this attached code doesnt work on a modem line?

Anyone!

Sub SendEmails()
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim SendList As String
SendList = "[email protected]"


' Create new message
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

'makes the email
With objOutlookMsg
.To = SendList
.Subject = "Test Email"
.Body = "This is a test message generated on " & Now
.Attachments.Add "c:\test.txt"
.Send
End With

' Close Outlook instance: Important!
Set objOutlookMsg = Nothing
Set objOutlook = Nothing


End Sub

thanks but i was hoping without outlook/MAPI/CDO etc.

Cheers anyways!