Lotus With Outlook

Dragon108

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

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

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

Akupaka

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

Dragon108

Well-known member
19.01.2010
265
0
#3
А как передавать картинку, точнее откуда её брать в аутлуке? (собственно ради неё и делалось).
 

Dragon108

Well-known member
19.01.2010
265
0
#5

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

А че я?.. О.о
04.10.2007
3 360
1
#6
А как передавать картинку, точнее откуда её брать в аутлуке?
Есть Аутлук, в нем настроена подпись писем, которая содержит рисунок
Хм... ))

Попробуй так:
способ 1:
вместо
.Body = "Здравствуйте " & "Очень по вам соскучился !"
написать:
.Body = "Здравствуйте " & "Очень по вам соскучился !" & .Body
способ 2:
взято отседова: http://www.dreamincode.net/forums/topic/31...outlook-olmail/

Код:
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

Well-known member
19.01.2010
265
0
#7
От зачем такой кракадил? :)

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

Dragon108

Well-known member
19.01.2010
265
0
#8
Хм... ))

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

написать:


способ 2:
взято отседова: http://www.dreamincode.net/forums/topic/31...outlook-olmail/

Код:
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 типа должен добавить...

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


Первый способ дал прежний результат.
Со вторым ... из-за гемора с настройкой аутлука высшим начальством было решено пока забить на него.
Но нашел ещё одну ссылку http://www.cyberforum.ru/vba/thread22837.html
Если вернемся к аутлуку, отпишу
 

nvyush

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