Lotus With Outlook

Тема в разделе "Lotus - Программирование", создана пользователем Dragon108, 13 июл 2010.

  1. Dragon108

    Dragon108 Well-Known Member

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

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

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

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    От зачем такой кракадил? :)
    Что для этого используется, КОМ? Тогда надо искать метод, который вставляет подпись, такой вероятно существует. Либо должен быть метод, который создает письмо по шаблону с подписью.
    Это уже надо к разработчикам офиса с такими вопросами.
     
  3. Dragon108

    Dragon108 Well-Known Member

    Регистрация:
    19 янв 2010
    Сообщения:
    264
    Симпатии:
    0
    А как передавать картинку, точнее откуда её брать в аутлуке? (собственно ради неё и делалось).
     
  4. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.047
    Симпатии:
    18
    Dragon108
    покажи код линка
     
  5. Dragon108

    Dragon108 Well-Known Member

    Регистрация:
    19 янв 2010
    Сообщения:
    264
    Симпатии:
    0

    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
     
  6. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    Хм... ))

    Попробуй так:
    способ 1:
    вместо
    написать:
    способ 2:
    взято отседова: http://www.dreamincode.net/forums/topic/31...outlook-olmail/

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

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

    Dragon108 Well-Known Member

    Регистрация:
    19 янв 2010
    Сообщения:
    264
    Симпатии:
    0
    Про картинку я понял отсюда что мы целиком берем всю подпись из лотуса. ;)
     
  8. Dragon108

    Dragon108 Well-Known Member

    Регистрация:
    19 янв 2010
    Сообщения:
    264
    Симпатии:
    0


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

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    У себя настрой и проверь :) *хотя, как хочешь
     
  10. nvyush

    nvyush Lotus team
    Lotus team

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

    Dragon108 Well-Known Member

    Регистрация:
    19 янв 2010
    Сообщения:
    264
    Симпатии:
    0
    Решив основную задачу, займусь этим :)
     
Загрузка...

Поделиться этой страницей