Thanks Thanks:  0
Likes Likes:  0
Results 1 to 3 of 3

Thread: Outlook reply code help needed please

  1. #1
    Board Regular
    Join Date
    Feb 2012
    Posts
    559
    Post Thanks / Like
    Mentioned
    4 Post(s)
    Tagged
    1 Thread(s)

    Default Outlook reply code help needed please

    Hi,

    Our company has disabled Reply All. And shortcuts no longer work as an alternative. I am ok with VBA in Excel but unfamiliar with Outlook.

    I've tried the below tests, but nothing happens.

    I think I need to create a new email and add the original recipients and cc's manually.

    How would I go about this?

    Code:
    Sub ReplyToAll_Run()
    
    If Application.ActiveExplorer.Selection.Count >= 1 Then
        Dim o As Object
        Set o = Application.ActiveExplorer.Selection.Item(1)
        If TypeName(o) = "MailItem" Then
            Dim mi As MailItem
            Set mi = o
            mi.replyall
            Exit Sub
        End If
    End If
    MsgBox "Cannot Reply to All when no mail items are selected"
    End Sub
    
    
    
    
    Sub test()
    
    
    Dim o As MailItem
    Set o = Application.ActiveExplorer.Selection.Item(1)
    o.replyall
    
    
    End Sub
    Many thanks!

  2. #2
    Board Regular
    Join Date
    Feb 2012
    Posts
    559
    Post Thanks / Like
    Mentioned
    4 Post(s)
    Tagged
    1 Thread(s)

    Default Re: Outlook reply code help needed please

    I've managed to get the recipients and subject for the new email. Just need to create the item and add these, any ideas?

    Code:
    Sub reciplist()
    
    Dim OutlookMessage As Outlook.MailItem
    Dim AppOutlook As New Outlook.Application
    Dim sendtolist As String
    Dim subjectstring As String
    Dim ppls As Recipients
    Dim d As Long
    
    
    'get recipients from selected
    Dim o As MailItem
    Set o = Application.ActiveExplorer.Selection.Item(1)
    For d = 1 To o.Recipients.Count
    Debug.Print o.Recipients.Item(d).Name
    
    
    If d = 1 Then
    sendtolist = o.Recipients.Item(d).Name
    Else
    sendtolist = sendtolist & " ;" & o.Recipients.Item(d).Name
    End If
    
    
    Next d
    
    
    'get subject from seleted
    subjectstring = o.Subject
    
    
    End Sub
    Last edited by mrshl9898; Nov 14th, 2017 at 07:10 PM.

  3. #3
    Board Regular
    Join Date
    Feb 2012
    Posts
    559
    Post Thanks / Like
    Mentioned
    4 Post(s)
    Tagged
    1 Thread(s)

    Default Re: Outlook reply code help needed please

    Solution, thanks for anyone looking into it. (didn't realize it would be so easy)


    Code:
    Sub ReplytoAll()
    
    Dim OutlookMessage As Outlook.MailItem
    Dim AppOutlook As New Outlook.Application
    Dim sendtolist As String
    Dim subjectstring As String
    Dim ppls As Recipients
    Dim d As Long
    Dim o As MailItem
    
    
    'get recipients from selected
    Set o = Application.ActiveExplorer.Selection.Item(1)
        For d = 1 To o.Recipients.Count
            If d = 1 Then
            sendtolist = o.Recipients.Item(d).Name
            Else
            sendtolist = sendtolist & " ;" & o.Recipients.Item(d).Name
            End If
        Next d
    
    
    'get subject from seleted
        subjectstring = o.Subject
    
    
    'create and send
    Set myItem = Application.CreateItem(olMailItem)
        With myItem
        .Display
        .To = sendtolist
        .Subject = subjectstring
        End With
    
    
    
    
    End Sub

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
  •