Здравствуйте!
У нас на телефонном центре используется программка в которой телефонистки забивают данные по звонку и потом сбрасывают эти данные на почту. Сейчас появилась необходимость сам номер отправлять почтой по выбору из комбо-бокса. Но никак не могу привязать чтобы запись определялась как емейл. Сама функция по отправке такого вида:
Private Sub SendSmtpMail(msgFrom, sendTo, sendCc, subj, msgBody)

Dim objEmail
Set objEmail = CreateObject("CDO.Message")
objEmail.From = msgFrom
objEmail.To = sendTo
objEmail.Cc = sendCc
objEmail.Subject = subj
objEmail.Textbody = msgBody

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-server"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
objEmail.Configuration.Fields.Update
objEmail.Send
End Sub

Функция соответственно привязывается к клику кнопки.