hola
hace tiempo vi este codigo por ahi aunque nunca lo he probado
<% Dim objOutlk 'Outlook
Dim objMail 'Email item
Dim strMsg
Const olMailItem = 0
'Create a new message
Set objOutlk = CreateObject("Outlook.Application")
Set objMail = objOutlk.createitem(olMailItem)
objMail.To = "
[email protected]"
objMail.cc = "" 'Enter an address here To include a carbon copy; bcc is For blind carbon copy's
'Set up Subject Line
objMail.subject = "guau" & CStr(Month(Now)) & "/" & CStr(Day(Now)) & "/" & CStr(Year(Now))
'Add the body
strMsg = "envio desde outlook "& vbCrLf
strMsg = strMsg & "I voted and gave you an excellent rating!"
'To add an attachment, use:
'objMail.attachments.add("C:\MyAttachmentFile.txt" )
objMail.body = strMsg
objMail.display 'Use this To display before sending, otherwise call objMail.Send to send without reviewing
'Clean up
Set objMail = Nothing
Set objOutlk = Nothing
'end sub
%>
espero que te sirva
saludos