Добавление подписи в сообщение Outlook

[Unreal Blonde]

Доброе время суток! Прошу помощи.

Есть необходимость добавить в создаваемое сообщение подпись, используемую по умолчанию в Outlook'е.
Т.е. макрос создает письмо (тема, кому и т.п.). все замечательно, но нужна подпись. Макрос будет использоваться несколькими людьми на разных компах в сети. т.е. подпись у каждого должна быть своя.

Спасибо.

[kain2003]

Ребята помогите та же проблема.
Спасибо вашему форуму у вас нашел то что искал, доработал и на подписи застрял.

[kain2003]

Вобщем то я решил вопрос.вот хочу и с вами поделиться.
Вот код :

Sub подпись()

Dim OutApp As Object, OutMail As Object, Strbody As String, r As Date
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon: Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
r = Format(Now(), "dd mmmm yyyy") 'формат даты
With OutMail
.To = "primer@mail.ru": .CC = "": .BCC = "": .Subject = "Тема " & r & " продолжение темы": 'вставка даты
.Attachments.Add ("C:\Test.xls")
.Body = Activedocument.Content 'в этом случае открывается письмо с подписью той которая по умолчанию в Outlooke
.Display 'or use .send
End With
On Error GoTo 0: Set OutMail = Nothing: Set OutApp = Nothing
End Sub

Вот второй код когда надо чтобы и подпись была и тело письма определенное,но есть один минус только определенная подпись может быть.

Sub ОпределеннаяПодпись()

'
Dim OutApp As Object, OutMail As Object, Strbody As String, r As Date, SigString As String, Signature As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon: Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
r = Format(Now(), "dd mmmm yyyy")
Strbody = "Здравствуйте!" & vbNewLine & vbNewLine & _
"Строка1 " & r - 1 & " :" & vbNewLine & _ 'вставка даты прошлого дня
"Строка2" & vbNewLine & _
"Строка3"& vbNewLine & _
"Строка4" & vbNewLine & _
"Строка5"
SigString = "C:\Documents and Settings\" & Environ("username") & _
"\Application Data\Microsoft\Signatures\MySign.tx t" 'путь к подписи в outlook



If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If

With OutMail
.To = "primer@mail.ru": .CC = "": .BCC = "": .Subject = "Тема":
.Body = Strbody & vbNewLine & vbNewLine & Signature
.Attachments.Add ("C:\test.xls")
.Display 'or use .send
End With
On Error GoTo 0: Set OutMail = Nothing: Set OutApp = Nothing
End Sub


Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemO bject")
Set ts = fso.GetFile(sFile).OpenAsTextStream (1, -2)
GetBoiler = ts.readall
ts.Close
End Function

вот собственно и все.
Если кто может помочь со вторым вариантом,чтобы не надо было под каждого Usera писать макрос.
Просто подпись обязательна.
Заранее благодарен

[EducatedFool]

Если кто может помочь со вторым вариантом,чтобы не надо было под каждого Usera писать макрос.
Просто подпись обязательна.

А чем различаются письма, адресованные различным User-ам? Только подписью?

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

Что мешает каждому пользователю создать текстовый файл со своей подписью?
Файл у всех юзеров может называться одинаково, и находиться по адресу C:\Documents and Settings\юзер\Application Data\Microsoft\Signatures\MySign.tx t, либо можно на диске C:\ создать несколько файлов для каждого юзера с именами юзер_подпись.txt

[kain2003]

Сообщение от EducatedFool

А чем различаются письма, адресованные различным User-ам? Только подписью?

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

Что мешает каждому пользователю создать текстовый файл со своей подписью?
Файл у всех юзеров может называться одинаково, и находиться по адресу C:\Documents and Settings\юзер\Application Data\Microsoft\Signatures\MySign.tx t, либо можно на диске C:\ создать несколько файлов для каждого юзера с именами юзер_подпись.txt

Прошу прощения я наверно не правильно объяснил суть вопроса.
User на рабочей машине один, а вот пользователей в outlook несколько, то есть путь к подписям будет все время один и тот же:
C:\Documents and Settings\юзер\Application Data\Microsoft\Signatures\
А вот подписи разные.
Как раз в этой папке и есть наши подписи и они с разным названием.
Теперь вроде правильно расписал.
Надеюсь на вашу помощь.