Lotus With Outlook

[Dragon108]

Что есть:
1)Есть Аутлук, в нем настроена подпись писем, которая содержит рисунок.
2)Есть база лотуса. В форме документа есть Hotspot. При клике на хотспот должен открываться Аутлук с частично заполненными полями.

Проблема в следующем:
При клике на хотспот в документе, открывается новое письмо в атлуке с заполненными полями (значения полей забиваются в лотусе и передаются в аутлук). Здесь всей окей. НО ... не проставляется подпись, которая настроена в аутлуке.

Можете кто-нибудь подсказать как решить эту проблему?
Заранее спасибо.

 

[Akupaka]

От зачем такой кракадил?

открывается новое письмо в атлуке с заполненными полями

Что для этого используется, КОМ? Тогда надо искать метод, который вставляет подпись, такой вероятно существует. Либо должен быть метод, который создает письмо по шаблону с подписью.
Это уже надо к разработчикам офиса с такими вопросами.

 

[Dragon108]

А как передавать картинку, точнее откуда её брать в аутлуке? (собственно ради неё и делалось).

 

[ToxaRat]

Dragon108
покажи код линка

 

[Dragon108]

Dragon108
покажи код линка

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim ses As New NotesSession
Dim doc As NotesDocument
Dim nn As New notesname (ses.UserName)
Dim URL As String, mailDomain As String

Set doc =ws.CurrentDocument.Document


Dim objOL As Variant
'Создаем новый объект
Dim objMail As Variant
Dim eadres As String ' для эл. адреса

On Error Resume Next
'Пытаемся получить приложение, если оно запущено
Set objOL = GetObject(, "Outlook.Application")
'Если не запущено, тогда создаем новый экземпляр
If Err <> 0 Then
Set objOL = CreateObject("Outlook.Application")
' Err.Clear
End If
'присваиваем значение
Set objMail = objOL.CreateItem(olMailItem)

eadres = Strconv(doc.FIO(0), SC_ProperCase) +" <"+doc.email(0)+">"

With objMail
.To = eadres
'Адрес получателя
.Subject = "Письмо для Дяди Вани."
'Тема письма
.Body = "Здравствуйте " & "Очень по вам соскучился !"
'текст письма с примером использования выгрузки данных из Excel
.Display
'Активируем окно
'.send ' - отправка письма без подтверждений!
End With

'Уничтажаем все сылки на объект
Set objMail = Nothing
Set objOL = Nothing




End Sub

 

[Akupaka]

А как передавать картинку, точнее откуда её брать в аутлуке?

Есть Аутлук, в нем настроена подпись писем, которая содержит рисунок

Хм... ))

Попробуй так:
способ 1:
вместо

.Body = "Здравствуйте " & "Очень по вам соскучился !"

написать:

.Body = "Здравствуйте " & "Очень по вам соскучился !" & .Body

способ 2:
взято отседова:

Ссылка скрыта от гостей

01	Dim oOutlook As Outlook.Application
02	Dim olMail As Outlook.MailItem
03	Dim oAddSig As Outlook.Inspector
04	 
05	Set oOutlook = CreateObject("Outlook.Application")
06	Set olMail = olApp.CreateItem(olMailItem)
07	 
08	Set oOutlook = olMail.GetInspector
09	 
10	With olMail
11		 Call .Recipients.Add("h***@there.com")
12		 .Subject = "Blah blah blah"
13		 .Body = "Email test message 1"
14		 Call .Send
15	End With
16	Set oOutlook = Nothing

вызов .GetInspector типа должен добавить...

Попробуй обязательно оба способа! и результаты сообщи, пжлста.

 

[Dragon108]

От зачем такой кракадил?

Что для этого используется, КОМ? Тогда надо искать метод, который вставляет подпись, такой вероятно существует. Либо должен быть метод, который создает письмо по шаблону с подписью.
Это уже надо к разработчикам офиса с такими вопросами.

Про картинку я понял отсюда что мы целиком берем всю подпись из лотуса.

 

[Dragon108]

Хм... ))

Попробуй так:
способ 1:
вместо

написать:


способ 2:
взято отседова:

Ссылка скрыта от гостей

01	Dim oOutlook As Outlook.Application
02	Dim olMail As Outlook.MailItem
03	Dim oAddSig As Outlook.Inspector
04	 
05	Set oOutlook = CreateObject("Outlook.Application")
06	Set olMail = olApp.CreateItem(olMailItem)
07	 
08	Set oOutlook = olMail.GetInspector
09	 
10	With olMail
11		 Call .Recipients.Add("h***@there.com")
12		 .Subject = "Blah blah blah"
13		 .Body = "Email test message 1"
14		 Call .Send
15	End With
16	Set oOutlook = Nothing

вызов .GetInspector типа должен добавить...

Попробуй обязательно оба способа! и результаты сообщи, пжлста.

Первый способ дал прежний результат.
Со вторым ... из-за гемора с настройкой аутлука высшим начальством было решено пока забить на него.
Но нашел ещё одну ссылку

Ссылка скрыта от гостей

Если вернемся к аутлуку, отпишу

 

[Akupaka]

из-за гемора с настройкой аутлука высшим начальством было решено пока забить на него

У себя настрой и проверь *хотя, как хочешь

 

[nvyush]

Но нашел ещё одну ссылку

Ссылка скрыта от гостей

Dragon108, если Вы и Unreal Blonde с форума по ссылке — одно и то же лицо, то это вопрос к системным администраторам.
У нас системными политиками реализовано следующее — каждый пользователь имеет сетевую папку, отображаемую, скажем в сетевой диск X. Там лежит *.ID-файл. С какого бы компьютера пользователь не вошёл в сеть, ему доступен ЕГО сетевой диск Х с его ID-файлом. Точно также можно хранить и Ваш файл подписи. Если стандартизировать имя файла подписи, то путь к файлу у всех пользователей будет одинаковый (например, X:\Sign.html), но подпись — своя.

 

[Dragon108]

У себя настрой и проверь *хотя, как хочешь

Решив основную задачу, займусь этим