How to rename subject line and forward the email

chrisasir2

New Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Hi Diane,

I am reading emails from one subfolder called TEST and changing the subject text and then forwarding the emails to different recipient.
I wrote the VBA subroutine. Its not erroring out stating property is read only.

Kindly help me

---- Code

Sub Retrieve_subfolder_emails()

Dim olMail As MailItem
Dim ns As NameSpace

Dim olinboxfolder As MAPIFolder, olsubfolder As MAPIFolder
Dim msg As MailItem

Set ns = GetNamespace("MAPI")


Set olinboxfolder = ns.GetDefaultFolder(olFolderInbox)
Set olsubfolder = olinboxfolder.Folders("Test")

' Reading the mails from subfolder TEST

For Each msg In olsubfolder.Items
Set olMail = CreateItem(olMailItem)
With olMail
.To = "abcd@gmail.com"
.CC = ""
.Subject = "New subject Test1 :" & msg.Subject
.Body = msg.Body
.Attachments = msg.Attachments
.Send
End With
Set olMail = Nothing

Next msg

Set olsubfolder = Nothing
Set oinboxfolder = Nothing
Set ns = Nothing
End Sub




Regards,
Anand
 
Thread starter Similar threads Forum Replies Date
N Rename Subject Line with Email Content Outlook VBA and Custom Forms 3
C Save outlook attachments and rename/append files with identifier from subject line Outlook VBA and Custom Forms 3
D VBA script to auto download attachments and rename file according to subject line Outlook VBA and Custom Forms 23
W Save and rename outlook email attachments to include domain name & date received Outlook VBA and Custom Forms 4
W Save Outlook attachment in network folder and rename to current date and time Outlook VBA and Custom Forms 18
D Autosave Attachment and Rename Outlook VBA and Custom Forms 1
F Rename Contacts Greyed Out Using Outlook 0
K IMAP Server Wants to alert you to the following: cannpt rename system folder Using Outlook 1
Diane Poremsky Rename Email Accounts and Data Files in the Folder List New Slipstick.com Articles 0
S VBA code to rename a task (flagged message) Outlook VBA and Custom Forms 1
B Your IMAP server wants to alert you to the following: cannot rename system folders Using Outlook 8
L IMAP server wants to alert you to the following: cannot rename sytem folders Using Outlook 14
T Rename Outlook 2010 .PST Files Using Outlook 14
B IMAP server wants to alert you to the following cannot rename system folders Using Outlook 3
M Outlook Today. How to rename IMAP inbox accounts to something else than inbox? Using Outlook 4
A Rename resource Exchange 2003 Using Outlook 2
O Run Rule to Rename Email and Add to Tasks Using Outlook 4
U How do rename a recovered folder after repairing using scanpst.exe Using Outlook 1
M Rename CCR 2007 Cluster Exchange Server Administration 1
1 'Sent Items', 'Deleted Items', & 'Junk Items' Folders; Want to Rename Them to Just: 'Sent', 'Deleted Using Outlook 1
R Rename Outlook .pst folders Using Outlook 1
F Rename option greyed out when trying to rename folders under favorite folders Using Outlook 2
T Rename Archive Mailbox Exchange Server Administration 5
S Rename NETBIOS name in windows 2003 AD with Exchange 2003 Exchange Server Administration 6
D How to rename the display name of the primary outlook mailbox in Outlook 2010 / Exchange 2007 Using Outlook 1
T Rename CAS array Exchange Server Administration 4
W Outlook folder rename (right click 'rename' option) issue Using Outlook 9
S Is there a configuration or setting in Outlook (2007 or 2010) that allows users to rename "shared" c Using Outlook 3
M Rename Database BCM (Business Contact Manager) 1
J how do i rename the default fields in MS Business Contact manager BCM (Business Contact Manager) 1
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
R Disable conversation thread from replying of recipients in the same subject. Please help Using Outlook 0
M Outlook 2013 Script Assistance - Save Opened Link with Subject Added Outlook VBA and Custom Forms 1
B Add Prefix text to Subject Line Using Outlook 1
P [SOLVED] Auto remove [EXTERNAL] from subject Using Outlook 14
M Outlook 2013 Replace Subject with Conversation (a "hidden" value). Outlook VBA and Custom Forms 0
M Convert Subject Line to Internet Header version of Subject Outlook VBA and Custom Forms 10
M Adding Subject to this Link-Saving VBA Outlook VBA and Custom Forms 5
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
L Moving emails with similar subject and find the timings between the emails using outlook VBA macro Outlook VBA and Custom Forms 1
A Edit subject - and change conversationTopic - using VBA and redemption Outlook VBA and Custom Forms 2
B Remove Subject Residual Outlook VBA and Custom Forms 3
F VBA to ensure a code is entered in Subject title Outlook VBA and Custom Forms 1
A Check for words in subject header before sending email Outlook VBA and Custom Forms 4
J VBA Outlook : Subject line : Cut and Paste name to heading , number to very end of the body of Email Outlook VBA and Custom Forms 1
Z Outlook Custom Form: Adding Dropdown(Project Code) at the end of subject Outlook VBA and Custom Forms 0
D Remove text in subject using VBA Outlook VBA and Custom Forms 4
M Making Subject field writable (disable Read Only) Outlook VBA and Custom Forms 2
M Adding Macro to populate "to" "subject" "body" not deleting email string below. Outlook VBA and Custom Forms 5
Similar threads


















































Top