Developing.ru

есть задача в ехсель создать гиперсылку при нажатии автоматом заполняла отправителя, тему и само письмо
обычная гиперсылка позволяет редактировать отправителя и тему
подскажите как это воплатить в реальность
заранее спасибки


ТЯЖЕЛО ОТВЕТИТЬ?

Здравствуйте doc_green.
"..ТЯЖЕЛО ОТВЕТИТЬ?.." - отвечаю.
Вы не указали в каком приложении необходимо чтобы "..при нажатии автоматом.."

Евгений.

P.S. Форум не "Машина ответов", а слова "..задача в ехсель.." и "..заранее спасибки.." не являются командой к исполнению.
Выкладывая сообщение проверяйте формулировку вопроса, чтобы он был понятен не только Вам
и не забывайте обращаться к тем кому адресуете послание, не знаете как - можно просто поздоровавшись.

Можете под свою задачу приспособить код указанный ниже.


Dim oMSOutlook As Object
Dim oLetter As Object

'если outlook открыт - активизирую, если нет - открываю.
On Error Resume Next
Set oMSOutlook = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
Err.Clear
'обращаю внимание - outlook открывается, но на экран не выводится
Set oMSOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set oLetter = oMSOutlook.CreateItem(0)
With oLetter
On Error Resume Next
'адрес письма
'ВАЖНО: указать корректный E-Mail, то есть тот на который ваш outlook действительно отправит письмо. Если мыло указано некорректно - подвисните ибо система будет ждать завершения операции OLE.
.To = "xxxxx@yandex.ru":
'тема письма
.Subject = "Здесь тема письма"
'тело письма
.body = "Здесь текст письма"
'скрываю excel
Application.Visible = False
'показываю оутлук
.display (True)
'показываю excel
Application.Visible = True
On Error GoTo 0
End With