smtp.gmail.com'un kullandığı SMTP portu 587'dir. Satırı aşağıdaki gibi düzenlemeniz sorunu çözecektir.
Flds.Item(schema & "smtpserverport") = 587