Емейл адресс из текстового или комбо поля

[IvenSh]

Здравствуйте!
У нас на телефонном центре используется программка в которой телефонистки забивают данные по звонку и потом сбрасывают эти данные на почту. Сейчас появилась необходимость сам номер отправлять почтой по выбору из комбо-бокса. Но никак не могу привязать чтобы запись определялась как емейл. Сама функция по отправке такого вида:
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

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

[aleksmir]

Приведи пример. Я не очень понял - в чём проблема.
Нужно узнать - введён ли в текстовое поле символ "@" или что-то ещё?

[IvenSh]

Мне нужно сделать список емейлов сотрудников, удобнее всего это сделать комбо-боксом. И надо чтобы значение в поле соответствовало sendTo

[iGrok]

И надо чтобы значение в поле соответствовало sendTo

Какое значение, в каком поле? А что ему сейчас соответсвует?

Учти, телепат на этом форуме только один, и его твоя проблема скорей всего не заинтересует. Так что либо ты подробно поясняешь, что у тебя есть, что тебе нужно, и что у тебя не получается, либо ты решаешь свою проблему без подсказок.

[IvenSh]

Ситуация такая - в данный момент - емейл получателя берётся из тела программы. Функция уже указана. Но в данный момент надо чтобы адреса менялись. Как можно прописать в программе, чтобы адрес отправителя брался из текстового поля например.

[iGrok]

Адрес_Отправителя = Имя_Текстового_Поля.Text
С комбобоксом аналогично.

[Денис]

Мне нужно сделать список емейлов сотрудников, удобнее всего это сделать комбо-боксом. И надо чтобы значение в поле соответствовало sendTo

Предлагаю сделать так: в комбо у тебя список имён и к ним привязываются числа в ListItems. Ты делаешь строковый массив с адресами и при выборе элемента из списка, достаешь значение из массива по индексу выбранного элемента. А лучше, делаешь структурный массив (сначала создается структура, а потом из нее создается массив). Прилагаю рабочий примерчик. Если я всё понял правильно, прошу считать меня телепатом.

ADD: Раз адреса уже где-то лежат, то возможно, я таки неправильно всё понял.

[IvenSh]

Спасибо большое. И в итоге, когда я вызываю функцию в программе Call и далее, там где должен стоять адрес получателя я ставлю Имя_Текстового_Поля.Text ну или Комбо поля. Так?

[Денис]

Спасибо большое. И в итоге, когда я вызываю функцию в программе Call и далее, там где должен стоять адрес получателя я ставлю Имя_Текстового_Поля.Text ну или Комбо поля. Так?

call SendSmtpMail(msgFrom, txt1.text, sendCc, subj, msgBody)

Form1_2.zip

А вообще, вот.

(1.04 Кб) Скачиваний: 35

[IvenSh]

Спасибо огромное!