#16
|
|||
|
|||
Still gettting and error
Sub ReplyMSG()
'Graham Mayor - Graham Mayor - Home Page - Last updated - 18 Jul 2023 Dim olItem As Outlook.MailItem Dim olAccount As Outlook.Account Dim olReply As MailItem ' Reply Dim olInsp As Outlook.Inspector Dim wdDoc As Object Dim oRng As Object Dim bAcc As Boolean Const strAcc As String = "Juan.Cabrera@pdmsteel.com" 'use the display name of the account here On Error Resume Next Select Case Outlook.Application.ActiveWindow.Class Case olInspector Set olItem = ActiveInspector.currentItem Case olExplorer Set olItem = Application.ActiveExplorer.Selection.Item(1) End Select For Each olAccount In Application.Session.Accounts If olAccount.DisplayName = strAcc Then bAcc = True Set olReply = olItem.ReplyAll With olReply .BodyFormat = olFormatHTML Set olInsp = .GetInspector Set wdDoc = olInsp.WordEditor Set oRng = wdDoc.Range(0, 0) oRng.Text = "Am currently working on your quote, I should have it done today or first tomorrow morning. " & _ "Any question, please feel free to email directly." oRng.collapse 0 oRng.Text = vbCr & vbCr & "Item 1" _ & vbCr & vbCr & "Item 2" _ & vbCr & vbCr & "Item 3" .SendUsingAccount = olAccount .Display .Send End With Exit For End If olItem.Categories = "Juan Cabrera" olItem.Close olSave Next olAccount If bAcc = False Then MsgBox strAcc & " account not found!", vbCritical End If lbl_Exit: Set olItem = Nothing Set olReply = Nothing Set olInsp = Nothing Set wdDoc = Nothing Set oRng = Nothing Set olAccount = Nothing Exit Sub End Sub |
#17
|
|||
|
|||
See attachment
For some reason it still not changing the email account.
|
#18
|
|||
|
|||
For some reason it still not change the email address
|
#19
|
|||
|
|||
Help!!! Help!!!
|
#20
|
||||
|
||||
It is difficult to advise without access to the application, but you could try
Code:
.SentOnBehalfOfName = olAccount Code:
.SendUsingAccount = olAccount
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#21
|
|||
|
|||
It still doesn't work, but it works in my mail box but not in the shared one i trying to use it in.
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Create a Userform in Outlook to select a macro for an email template. | snickerbart | Outlook | 4 | 04-17-2015 12:55 PM |
Create QuickStep: Save Contact with Category | ilcaa72 | Outlook | 1 | 05-20-2014 10:31 AM |
Macro to export email to text file on send depending on category | Joe Patrick | Outlook | 0 | 10-19-2012 06:20 PM |
How to create a Main category mirrored in Sub category data entry type of solution? | Geza59 | Excel | 0 | 10-19-2012 05:44 AM |