I'm getting an error when I am using this macro:


Sub AA_CDO()
Dim iMsg As Object
Dim iConf As Object
' Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
'
..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"
'
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With
With iMsg
Set .Configuration = iConf
.To = ; "
.CC = "
.BCC = ""
.From = """Excel"" "
.Subject = "Important message"
.TextBody = "AA has reached its stop loss" & vbNewLine & vbNewLine & _
"Please review this position immediately."
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
End Sub

Any thoughts?