Copying email address(es) in body of email and pasting in To field

holleymc

Member
Outlook version
Outlook 365 32 bit
Email Account
Office 365 Exchange
Hello all! Long time lurker and appreciate all the help and tips I've been able to pick up. I am looking for a way to copy an email address in the body of an open email and pasting it into the To field. Can this be done?

I am currently copying a full page from a word document and pasting it into an Outlook email. The email address(s) will be in the same location on each page.

This is my code.

Code:
Sub Paste()
Dim OutApp As Object
Dim OutMail As Object
Dim olInsp As Object
Dim MyItem As Outlook.MailItem
Dim str_jpeg_file As String
str_jpeg_file = "F:\User\New folder\Logo.jpg"


'Dim xlSheet As Worksheet
Dim wdDoc As Object
Dim oRng As Object
    'Set xlSheet = ActiveWorkbook.Sheets("Unapproved")
    'xlSheet.UsedRange.Copy

    'On Error Resume Next
    Set OutApp = GetObject(, "Outlook.Application")
    If Err <> 0 Then Set OutApp = CreateObject("Outlook.Application")
    On Error GoTo 0
    
    'Set OutMail = OutApp.CreateItem(0)
    Set MyItem = Application.CreateItemFromTemplate("H:\Templates\Statement Customer .msg")
    MyItem.Display
    With MyItem
        .BodyFormat = 2
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "Customer Statement "

SendKeys "{right}{down}^({v})", True
End With
End Sub

Thanks as always!!
 
bumping in hopes of there may be a solution.

Thanks again!
 
Similar threads
Thread starter Title Forum Replies Date
R VBA for copying sent email to current folder under a shared mailbox Outlook VBA and Custom Forms 17
Mary B Outlook 2013: Rule for copying new email to folder & marking that copy as read Using Outlook 1
A Copying cc email addresses to Excel - does not copy the <joe.bloggs@isp.com> Using Outlook 1
M Outlook changes the "Modified" field when moving/copying a Contact. Using Outlook 0
P Copying ALL calendar entries from Calender in PST file to IMAP OST file? Using Outlook 1
E Copying the whole e-mail body into excel Outlook VBA and Custom Forms 0
E Copying data from e-mail attachement to EXCEL file via macro Outlook VBA and Custom Forms 38
T Copying Outlook Account Setup For Desktop App Using Outlook 5
J Outlook - 2013 - Error msg when copying folders from Online Archives to another user's mailbox Using Outlook 0
Thiago Manzano Copying E-mails to a folder on HD Using Outlook 1
Diane Poremsky Mark Sent Items as Read After Copying with a Rule Using Outlook 0
crazyboy Copying BCM database from backed up mounted image to new drive BCM (Business Contact Manager) 2
oliv- Prevent copying shared contacts Outlook VBA and Custom Forms 5
Paul Butticaz Copying Contacts from SharePoint List (connected to Outlook) to another Conacts folder Using Outlook 1
K Outlook 2010 Not responding after IMAP folder deletion or copying. Using Outlook 2
S Calendar items are not being uploaded to outlook.com after copying Using Outlook.com accounts in Outlook 1
P open reminders missing after copying outlook pst file Using Outlook 2
L Copying Emails using drag and drop Using Outlook 2
O New to Outlook 2013, dealing with copying vs. moving sent items Using Outlook 0
S Recover messages that disappeared when copying to folder Using Outlook 1
S Copying multiple messages to folders and keeping date/time detail Using Outlook 1
D Copying POP3 folders from Inbox to IMAP Inbox in Outlook 2003 Using Outlook 0
M Copying setups for mutiple users Using Outlook 2
T Location and simple copying of emails and settings, OL 2010 and Win 7 64bit. Using Outlook 3
A Copying additional contact fields when chosing "Contact from the same company" Using Outlook 5
S Search Indexing (Copying Folders) Using Outlook 0
E Copying multiple folders to PST Outlook VBA and Custom Forms 2
B Copying data between atbs in a custom form Outlook VBA and Custom Forms 4
R copying a custom view from a public folder and distributing programatically Outlook VBA and Custom Forms 3
N error when copying outlook data "can not copy: the path too deep" Using Outlook 6
N Copying outlook macros between pcs Outlook VBA and Custom Forms 1
R Copying Data from Exchange to PST file Outlook VBA and Custom Forms 1
V Copying contents from one field to another field Outlook VBA and Custom Forms 6
T Why do Outlook Desktop 2021 tasks from my wife's email show up in my task pane? Using Outlook 2
A Opening a link from an email automatically Outlook VBA and Custom Forms 0
D Outlook 2021 New email reminder Using Outlook.com accounts in Outlook 0
Rupert Dragwater How do I remove an email ending with @gmail.com Using Outlook 4
M A plug in (or method) to keep email message formatting after it expires Using Outlook 1
L VBA to Triage Incoming Email Outlook VBA and Custom Forms 0
R Legacy Outlook on Mac Email Cache Using Outlook 0
P Email address auto-completes work fine on laptop, but no longer on desktop Using Outlook 3
S Create Outlook Task from Template and append Body with Email Body Outlook VBA and Custom Forms 4
A Search folder and move the email Outlook VBA and Custom Forms 0
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
farrissf Outlook 2016 Optimizing Email Searches in Outlook 2016: Seeking Insights on Quick Search vs Advanced Search Features Using Outlook 0
D Delete selected text in outgoing email body Outlook VBA and Custom Forms 0
F Graphics in email / Mac recipient garbled Using Outlook 0
D Outlook VBA forward the selected email to the original sender’s email ID (including the email used in TO, CC Field) from the email chain Outlook VBA and Custom Forms 2
Witzker Outlook 2019 Macro to seach in all contact Folders for marked Email Adress Outlook VBA and Custom Forms 1
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0

Similar threads

Back
Top