sending mail merge email

Forum home » Delegate support and help forum » Microsoft Word Training and help » Sending a mail merge email on behalf of my manager

Sending a mail merge email on behalf of my manager

resolvedResolved · High Priority · Version 2016

Jo has attended:
Outlook Advanced course
Word Intermediate course
Excel Intermediate course
Excel Advanced course

Sending a mail merge email on behalf of my manager

Can you advise on sending an email via mail merge on behalf of someone else? I have delegate permissions to send emails from 'my name on behalf of my manager' but I can't seem to send via mail merge without an expensive add-in.

RE: Sending a mail merge email on behalf of my manager

Hi Jo,

Thank you for the forum question.

Easiest method: Get Full Access Permissions, but if you cannot get full access you have other options.

I found the link below which give you an idea of your options.


https://www.msoutlook.info/question/mail-merge-as-a-delegate


If you have VBA knowledge, you can use the example code below, but you will need to amend it to your needs.


Sub FromAnotherUser()
On Error GoTo ErrorHandler

Dim objItem As Outlook.MailItem
Dim intSelected As Integer ' Number of emails selected.
Dim strSentOnBehalfOf As String ' Who we want the email to be from.
Dim intResponse As Integer ' Used to confirm with the user they want to make the change.

intSelected = Application.ActiveExplorer.Selection.Count
strSentOnBehalfOf = "(e-mail address removed)" ' Change this to fit your needs. Make sure you have rights to this account and it is spelled correctly!

' Require that this procedure be called only when a message is selected.
If intSelected = 0 Then
Exit Sub

End If

' Only run this procedure if we are in the Outbox.
If Application.ActiveExplorer.CurrentFolder = "Outbox" Then
' Confirm that user wants to proceed.
intResponse = MsgBox("Are you sure you want to mark these " & intSelected & " messages as being from " & strSentOnBehalfOf & "?", vbYesNoCancel, "Change Sender?")
If intResponse = vbYes Then
For Each objItem In Application.ActiveExplorer.Selection
If objItem.Class = olMail Then
objItem.SentOnBehalfOfName = strSentOnBehalfOf
objItem.Send ' If working offline it won't send yet, only prepares if for sending (same as opening the email in your Outbox and hitting the Send button).
'objItem.Save <- Don't save, otherwise it won't send (email changes from italics to regular font in the Outbox, it needs to be in italics) when back online.
End If

Next

Set objItem = Nothing

End If

End If

Exit Sub 'To Avoid ErrorHandler.

ErrorHandler:
MsgBox "Error #" & Err.Number & " - " & Err.Description, vbOKOnly, "Error"

End Sub


Kind regards

Jens Bonde
Microsoft Office Specialist Trainer

Tel: 0207 987 3777
STL - https://www.stl-training.co.uk
98%+ recommend us

London's leader with UK wide delivery in Microsoft Office training and management training to global brands, FTSE 100, SME's and the public sector

Thu 11 Apr 2019: Automatically marked as resolved.

 

Training courses

 

Training information:

Welcome. Please choose your application (eg. Excel) and then post your question.

Our Microsoft Qualified trainers will then respond within 24 hours (working days).

Frequently Asked Questions
What does 'Resolved' mean?

Any suggestions, questions or comments? Please post in the Improve the forum thread.


 

Word tip:

Shortcut keys for creating tables

There are shortcut keys you can use in Word in order to create tables.

Simply typing +-+ (plus symbol, minus symbol then plus symbol without any spaces between them), then pressing Enter creates one cell in a table.

So for example, if you require a table with three columns you would type +-+ three times with no gaps and press Enter.

Need more rows? Just click in the last cell in the table and press the Tab key.

View all Word hints and tips


Server loaded in 0.2 secs.