Respond to Outlook Email

Status
Not open for further replies.

MEG_AGI

New Member
Outlook version
Outlook 2019 64-bit
Email Account
Office 365 Exchange
Using VBA within Access, I'm trying to reply to an email with a template. The code follows and it creates and displays the email that I want.

However, it doesn't show the SEND button on the email.

The subroutine performs a .display to show the email. Do I need to use a different command?

' Email Response
'
' Parameters
' Template for reply
' Email Box to find Email
' Email Address to Respond


Sub srtnGenerateReply(ByVal sTemplateText As String, ByVal sEmailMailBox As String, ByVal sEmailAddress As String)

Dim OutlookApp As outlook.Application
Dim OutlookNamespace As outlook.NameSpace
Dim olShareName As outlook.Recipient
Dim Folder As MAPIFolder
Dim olItems As outlook.Items
Dim OutlookMail As Variant
Dim arrResults() As Variant
Dim ItemCount As Long


Dim sFilter As String

sFilter = "[SenderEmailAddress] = '" & sEmailAddress & "'"


Set OutlookApp = New outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set olShareName = OutlookNamespace.CreateRecipient(sEmailMailBox)
Set Folder = OutlookNamespace.GetSharedDefaultFolder(olShareName, olFolderInbox)
Set olItems = Folder.Items.Restrict(sFilter)




' sort to get the most recent email for the Email Address to respond
olItems.Sort "[ReceivedTime]", True

If olItems.Count < 1 Then
MsgBox ("No Email Found")
End If


For Each OutlookMail In olItems


OutlookMail.ReplyAll

OutlookMail.HTMLBody = sTemplateText & _
" <hr> <br/>" & _
"<b>From: </b>" & OutlookMail.SenderName & " [" & OutlookMail.SenderEmailAddress & "]<br/>" & _
"<b>Sent: </b>" & OutlookMail.SentOn & "<br/>" & _
"<b>To: </b>" & OutlookMail.To & "<br/>" & _
"<b>Subject: </b>" & OutlookMail.Subject & "<br/>" & _
"<br/>" & _
OutlookMail.HTMLBody\

OutlookMail.Display

Exit For ' Exit -- Only reply to lastest email

Next OutlookMail




Set OutlookApp = Nothing
Set OutlookNamespace = Nothing

End Sub
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
M Outlook 2007 won't respond? Using Outlook 3
B Vba to monitor time to respond to emails using a shared mailbox Outlook VBA and Custom Forms 5
K CommandButton1 does not respond Outlook VBA and Custom Forms 1
K why is a user getting email respond for invite respond that she didn't set up. Using Outlook 3
P Outlookslow to respond Using Outlook 1
A Issue with respond to an email message with a meeting request Using Outlook 0
P email arrows - respond and forward Using Outlook 1
M ItemEvents_10_OpenEventHandler does not respond on DocumentItems Outlook VBA and Custom Forms 2
P 3 of 5 PST files don't install from d:\outlook but only from D:\ Using Outlook 4
HarvMan January Windows 10 preview update force installs new Outlook Using Outlook 1
L Outlook 2010 - new installation on Windows 11 - aplzod32.dll is not a valid Add-in Using Outlook 6
J Outlook troubleshooting/logging - option grayed out Using Outlook 2
B Arrows missing from Outlook emails vertical scrollbar Using Outlook 0
G Outlook 2021 (New) doesn't respect default browser Using Outlook 8
B Outlook or iPhone turning tabs into spaces in Outlook Notes Using Outlook 1
P newly installed Office 365 includes OLD Outlook Using Outlook 6
R Outlook ribbon menu default? Using Outlook 7
H Spam email in Gmail not visible in Outlook Using Outlook 3
J How to transfer Win 10 Outlook to new Windows 11 pc? Using Outlook 10
J Renegade spam URL line displayed in old local Outlook 365 email title Using Outlook 3
G Reduce whitespace in Outlook desktop Contact Cards display Using Outlook 3
C Outlook classic via 365 Using Outlook 2
Dr. Demento Analogous Outlook code to read info into an array (or collection or whatever) Outlook VBA and Custom Forms 7
S Repair Outlook Using Outlook 8
V Outlook Form ListBox is not editable Outlook VBA and Custom Forms 2
F Outlook's contacts Using Outlook 1
D Outlook 2003 stopped dead Using Outlook 2
G Cannot receive emails from gmail account in Outlook 365 Using Outlook 1
E "Cannot display the folder. MS Outlook cannot access the specified file location" Using Outlook 8
P Outlook 2016 Working Offline Using Outlook 2
Rupert Dragwater Cannot reestablish gmail (email address) account in Outlook 365 Using Outlook 11
O Outlook 365 synchronisieren Exchange Server Administration 1
kburrows Outlook Classic - JPG files are corrupted when opened or saved Using Outlook 3
F Sync Outlook Calendar Using Outlook 0
G Change default font size in sticky notes - Outlook Desktop 2021 Using Outlook 2
C VBA in "New Outlook?" Using Outlook 0
D New Outlook with Business Basic Plans Using Outlook 0
D Outlook 2021 not working with Outlook 2003 installed Using Outlook 5
D Outlook 2003 stopped working - get they dialog box asking for username & Password Using Outlook 2
T Outlook 2021 hangs in close on taskbar occasionally Using Outlook 1
M Duplicate removal feature in Outlook 2021 is faulty Using Outlook 2
D.Moore Outlook COM addins source folder Using Outlook 12
P Removing Outlook 365 Account from Send/Receive Using Outlook 3
kburrows Outlook Automatically Merging Contacts Using Outlook 2
A Outlook 2016 Outlook 2016 vs. New Outlook Using Outlook 4
D Outlook Desktop App Email Software Using Outlook 0
efire9207 VBA Outlook Contacts Outlook VBA and Custom Forms 6
M Outlook not logging in to server Using Outlook 0
J Outlook macro to run before email is being send Outlook VBA and Custom Forms 3
R Outlook 2021 change view Using Outlook 2

Similar threads

Back
Top