Dim oOutLookApp As New Outlook.Application
Dim oOutlookNameSpace As Outlook.NameSpace
Dim newMail As Outlook.MailItem
Set oOutlookNameSpace =OutLookApp.GetNamespace("MAPI")
Set newMail = oOutLookApp.CreateItem(olMailItem)
With newMail
.Subject = "Sample..."
.Body = "Test Mail..."
With .Recipients.Add("[EMAIL PROTECTED]")
.Type = olTo
If Not .Resolve Then
MsgBox "Unable to resolve address.",
vbInformation
Exit Sub
End If
End With
.Send
End With
Unload Me
Regards, Aswin.
____________________________________________________
Start your day with Yahoo! - make it your home page
http://www.yahoo.com/r/hs
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income households are not online. Help bridge the digital divide today!
http://us.click.yahoo.com/cd_AJB/QnQLAA/TtwFAA/saFolB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
