| |
|
|
| | Возможно немного не по теме форума., так что прошу прощения заранее.
Каким образом при отправке сообщения, сформированного в VBA,
задать имя отправителя.
Т.е. есть электронный адрес у пользователя и он с него отправляет сообщения из базы и при этом его имя отправителя (учетной записи) должно быть не "Иван Пупкин", как обычно, а "Новости рынка", например. Но адрес тот же остается.
Вы меня извините за путанное описание, я сейчас аллергией страдаю и хреново соображаю.
Спасибо за понимание ) | |
| |
| |
| |
|
|
| | Outlook или outlook Express?
Какой код Вы используете для отправки?
в общем случае можно попробовать указать адрес отправителя так
"Новости рынка <ivan@mail.ru>" | |
| |
| |
| |
|
|
| | Использую Outlook Express (он нас у всех по умолчанию).
Код примерно такой (по подобию, того, что нашел на нашем сайте):
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = New Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
objMail.BodyFormat = 2
objMail.Subject = fSubject
objMail.To = fTo
objMail.Attachments.Add aFileName
objMail.HTMLBody = fBody
objMail.Display
Set objMail = Nothing
Set olApp = Nothing
|
Не знаю, как вообще отправителя задать, вот в чем дело ) | |
| |
| |
| |
|
|
| | если Вы используете OE, то такой код работать не должен.
Это код для Outlook
попробуйте добавите строку
objMail.From = "Информационная рассылка <ivan@mail.ri>" | |
| |
| |
| |
|
|
| | да, я ошибся... Outlook (
И, наверное поэтому не работает From,.,, | |
| |
| |
| |
|
|
| | И, наверное поэтому не работает From,.,, |
Нет не по этому...
попробуйте
objMail.ReplyRecipientNames = "Рассылка"
Но возможно что не получится.
По идее это значение Outlook должен брать из профиля пользователя.
В Lotus есть поле Principal, в Outlook - такого свойства не нешел | |
| |
| |
