maillen van exchance server

[phobia]

Ik probeer te mailen van af een pc. lookout draaid over MS exchance op een server binnen het bedrijf.

ik gebruik deze code:

[Private Sub Knop12_Click()
On Error GoTo Err_Knop12_Click
   
    
    
Dim objMessage, Rcpt



Rcpt = email
Set objMessage = CreateObject("CDO.Message")
objMessage.subject = "Snipper Overzicht"
objMessage.From = "t Brillehuus"
objMessage.To = Rcpt

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Dim html As String

Set fso = CreateObject("Scripting.FileSystemObject")
'Open the file for reading
Set f = fso.OpenTextFile("c:\temp\werknemers.html", ForReading)
'The ReadAll method reads the entire file into the variable BodyText
html = f.ReadAll
'Close the file
f.Close
Set f = Nothing
Set fso = Nothing

objMessage.HTMLBody = html
objMessage.Send

Set objMessage = Nothing

    
Exit_Knop12_Click:
    Exit Sub

Err_Knop12_Click:
    MsgBox Err.Description
    Resume Exit_Knop12_Click
    
End Sub/CODE]

op een stand alone werkt het als een zonnetje.

 

[Guus2005]

gaat er iets niet goed dan? zo ja, wat dan?

 

[phobia]

gaat er iets niet goed dan? zo ja, wat dan?

De config.waarde "SendUsing"is ongeldig

lookout heet 2 accounts, exchance en fax!

 

[Guus2005]

??

Er staat geen SendUsing in. Wat is dat voor iets?

 

[phobia]

Er staat geen SendUsing in. Wat is dat voor iets?

wist ik dat was ik al een stuk verder. SendUsing is een fout melding die je alleen met oke weg kunt klikken.