Personally, instead of putting effort into coming up with a way to send
e-mail without a component, I'd divert that energy into fighting the
"political reason." But, I know that's easier said than done...
You can create an e-mail with the file system object and drop the file in an
SMTP server's pickup directory. Like, if you have a server named SMTPSERVER
with a shared Inetpub directory, you could do something like:
Dim oFSO, oFile
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oFile =
oFSO.CreateTextFile(\\SMTPSERVER\InetpubShare\mailroot\pickup\anEmail.eml")
oFile.WriteLine "X-Receiver: (e-mail address removed)"
oFile.WriteLine "X-Sender: (e-mail address removed)"
oFile.WriteLine "To: <
[email protected]>"
oFile.WriteLine "Subject: Test FSO E-Mail"
oFile.WriteLine vbCrLf
oFile.WriteLine "Test e-mail FSO"
oFile.Close
Set oFile = Nothing
Set oFSO = Nothing
Ray at work