i have tried using the "Microsft CDO for NTS 1.2 Liberary". But an error message came out and the program stopped at the sentence "****.send".
the message is
" Run-time error '-2147023836(80070424)';
Method 'Send of object 'INewMail' failed "
My program is
Private Sub Form_Load()
Dim aa As CDONTS.NewMail
Set aa = New CDONTS.NewMail
aa.Subject = "sdfasdf"
aa.To = "nsu@thsdfsdf.ca"
aa.Body = "AAAAA"
aa.Send
End Sub
The OS of my PC is windwos2000 professional(SP2).
The mail software is microsoft outlook and the server is exchange.
thanks
the message is
" Run-time error '-2147023836(80070424)';
Method 'Send of object 'INewMail' failed "
My program is
Private Sub Form_Load()
Dim aa As CDONTS.NewMail
Set aa = New CDONTS.NewMail
aa.Subject = "sdfasdf"
aa.To = "nsu@thsdfsdf.ca"
aa.Body = "AAAAA"
aa.Send
End Sub
The OS of my PC is windwos2000 professional(SP2).
The mail software is microsoft outlook and the server is exchange.
thanks