Народ подключайтесь !!! Неужели никому не интересно ?

[MItya]

Я из новичков, вопросов > 1000
но для начала два:

1. нужно чтобы в форме при нажатии chkbox в соседнем поле записывалось имя текущего пользователя.

2. Как послать сообщение с формой ?

[Konst_One]

эти вопросы надо задавать в форуме VBA

[MItya]

пишу в VBS
с текущим именем пользователя в системе Exchange решил так:

Код: Выделить всё

Sub CheckBox6_Click
    If CheckBox6 Then
        userproperties("Recipient1") = vbNullString
    Else
        Set objNS = Application.GetNamespace("MAPI")
        userproperties("Recipient1") = GetCurrentUser
    End if
End sub
Function GetCurrentUser
    Dim objTopFolder, strTopFolder
    Const olFolderInbox = 6
    On Error Resume Next
    Set objTopFolder = _
       Application.GetNamespace("MAPI") _
       .GetDefaultFolder(olFolderInbox).Parent
    strTopFolder = objTopFolder.Name
    If InStr(1, strTopFolder, "-") Then
        GetCurrentUser = Trim(Right(strTopFolder, _
           Len(strTopFolder) - InStr(1, strTopFolder, "-")))
    Else
        GetCurrentUser = strTopFolder
    End If
End Function


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

Не подскажете как можно изменить код, чтобы событие можно было повторять.
хотелось бы примерно так:

Код: Выделить всё

Sub CheckBox6_Click
    If CheckBox6 Then
        userproperties("Recipient1") = vbNullString
    Else
        Set objNS = Application.GetNamespace("MAPI")
        userproperties("Recipient1") = GetCurrentUser
    End if
End sub
Sub CheckBox7_Click
    If CheckBox7 Then
        userproperties("Recipient2") = vbNullString
    Else
        Set objNS = Application.GetNamespace("MAPI")
        userproperties("Recipient2") = GetCurrentUser
    End if
End sub
Function GetCurrentUser
    Dim objTopFolder, strTopFolder
    Const olFolderInbox = 6
    On Error Resume Next
    Set objTopFolder = _
       Application.GetNamespace("MAPI") _
       .GetDefaultFolder(olFolderInbox).Parent
    strTopFolder = objTopFolder.Name
    If InStr(1, strTopFolder, "-") Then
        GetCurrentUser = Trim(Right(strTopFolder, _
           Len(strTopFolder) - InStr(1, strTopFolder, "-")))
    Else
        GetCurrentUser = strTopFolder
    End If
End Function


[MItya]

Всем привет !!!

свой вопрос решил так..
Чтобы при его открытии и редактировании событие менялось
нужно редактируемый пункт (в данном случае "Sub CheckBox7_Click")
описать немного по другому:

Код: Выделить всё


Sub CheckBox6_Click
    Set objNS = Application.GetNamespace("MAPI")
    userproperties("Recipient1") = GetCurrentUser
End sub

Sub CheckBox7_Click
Set MyPage = Item.GetInspector.ModifiedFormPages("Zayavka")
    Set MyControls = MyPage.Controls
    if MyControls("CheckBox7").value = True then
        Set objNS = Application.GetNamespace("MAPI")
        userproperties("Recipient2") = GetCurrentUser
    End If
End sub

Function GetCurrentUser
    Dim objTopFolder, strTopFolder
    Const olFolderInbox = 6
    On Error Resume Next
    Set objTopFolder = _
       Application.GetNamespace("MAPI") _
       .GetDefaultFolder(olFolderInbox).Parent
    strTopFolder = objTopFolder.Name
    If InStr(1, strTopFolder, "-") Then
        GetCurrentUser = Trim(Right(strTopFolder, _
           Len(strTopFolder) - InStr(1, strTopFolder, "-")))
    Else
        GetCurrentUser = strTopFolder
    End If
End Function


Остается не решенным второй вопрос:
Как заполненую форму из "Общих папок" ссылкой постать человеку, чтобы он ее отредактировал, сохранил.
И все изменения остались в "Общих папках".

Немного некрасиво изложил, но смысл примерно такой.