Results 1 to 2 of 2

Thread: Outlook - UserForm open in center of New Email Window
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    Board Regular
    Join Date
    Sep 2015
    Location
    El Paso, TX
    Posts
    88
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Outlook - UserForm open in center of New Email Window

    I added a button to the ribbon of a New Email Window that when clicked opens up a UserForm. I would like for that UserForm to open up on the center of that New Email Window. Below is the code that I have so far.
    Code:
    Sub Add_Client_ID()
    Dim wdDoc As Object
    Dim oRng As Object
    Dim oBM As Object
    Dim oFrm As UserForm1
    Dim strText As String
        On Error GoTo Err_Handler
        If TypeName(ActiveWindow) = "Inspector" Then
            If ActiveInspector.IsWordMail And ActiveInspector.EditorType = olEditorWord Then
                Set wdDoc = ActiveInspector.WordEditor
                On Error Resume Next
                Set oBM = wdDoc.bookmarks("_MailAutoSig")
                If Not oBM Is Nothing Then
                    Set oRng = oBM.Range
                    oRng.Start = oRng.Start + 2
                    oRng.collapse 1
                Else
                    Set oRng = wdDoc.Range
                    oRng.collapse 1
                End If
                On Error GoTo Err_Handler
                Set oFrm = New UserForm1
                With oFrm
                    .Show
                    If .Tag = 0 Then GoTo lbl_Exit
                    strText = vbCr & "=================================================================" & " " & vbCr & _
                              "The following information is for HIA/GK internal use and can be ignored." & " " & vbCr & _
                              "File ID:_       " & .TextBox1.Text & vbCr & _
                              "Type_PL:_    " & .ComboBox1.Text & vbCr & _
                              "Type_CL:_    " & .ComboBox2.Text & vbCr & _
                              "Drawer:_     " & .ComboBox3.Text & vbCr & _
                              "POL:_           " & .TextBox2.Text & vbCr & _
                              "================================================================="
                    Unload oFrm
                End With
                oRng.Text = strText
                oRng.Start = wdDoc.Range.Start
                oRng.collapse 1
                oRng.Select
            Else
                GoTo Err_Handler
            End If
        Else
            GoTo Err_Handler
        End If
    lbl_Exit:
        Set wdDoc = Nothing
        Set oRng = Nothing
        Set oBM = Nothing
        Set oFrm = Nothing
        Exit Sub
    Err_Handler:
        Beep
        Resume lbl_Exit
    End Sub

  2. #2
    Board Regular
    Join Date
    Feb 2016
    Location
    Upstate NY
    Posts
    59
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Outlook - UserForm open in center of New Email Window

    Word's document control yields the following when running through the menu ribbon "Layout, Orientation, Portrait":

    Code:
    Sub Macro3()
    '
    ' Macro3 Macro
    '
    '
        Selection.WholeStory
        With ActiveDocument.Styles(wdStyleNormal).Font
            If .NameFarEast = .NameAscii Then
                .NameAscii = ""
            End If
            .NameFarEast = ""
        End With
        With ActiveDocument.PageSetup
            .LineNumbering.Active = False
            .Orientation = wdOrientPortrait
            .TopMargin = InchesToPoints(0.12)
            .BottomMargin = InchesToPoints(0.12)
            .LeftMargin = InchesToPoints(0.5)
            .RightMargin = InchesToPoints(0.5)
            .Gutter = InchesToPoints(0)
            .HeaderDistance = InchesToPoints(0.5)
            .FooterDistance = InchesToPoints(0.5)
            .PageWidth = InchesToPoints(8.5)
            .PageHeight = InchesToPoints(11)
            .FirstPageTray = wdPrinterDefaultBin
            .OtherPagesTray = wdPrinterDefaultBin
            .SectionStart = wdSectionNewPage
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .VerticalAlignment = wdAlignVerticalTop
            .SuppressEndnotes = False
            .MirrorMargins = False
            .TwoPagesOnOne = False
            .BookFoldPrinting = False
            .BookFoldRevPrinting = False
            .BookFoldPrintingSheets = 1
            .GutterPos = wdGutterPosLeft
        End With
    End Sub
    You can delete the code line that are irrelevant.

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •