automatically send a mail

[jj]

Hi

With the code below I want to send an email when a certain situation occurs.
When I does this from my own computer at home it works very well - but when
I try to use it from a company I get the following error: "Run-time error
'2147220973 (80040213)' : The transport failed to connect to the server. I
am pretty sure I have used the right smtpserver for the company. Anyone
knows what could be the problem, and how I could correct it?

Below the code which works on my private address:
Public Sub SendMail(ByVal SendTo As String, ByVal Subject As String, ByVal _
MessageText As String, Optional ByVal Attachment As String)
Dim Config As Object, Message As Object
Dim CDOSchema As String
CDOSchema = "http://schemas.microso ft.com/cdo/configuration/"
Set Message = CreateObject("C DO.Message")
Set Config = CreateObject("C DO.Configuratio n")
Config.Load -1
With Config.Fields
.Item(CDOSchema & "sendusing" ) = 2
.Item(CDOSchema & "smtpserver ") = "PASMTP.tele.dk "
.Update
End With
With Message
Set .configuration = Config
.configuration. Load 1
.FROM = "Jens Jakobsen"
.Sender = "JJ@get2net .dk" 'Must be a real address
.To = SendTo
.Subject = Subject
.TextBody = MessageText
.Send
End With
End Sub

TIA
/JJ

I'm not reading this email