Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel Macro to Copy Word Text into an Email
Hello,
What I'm trying to do is set up a macro that will copy text from a word doc into the body of my email (the reason a word doc is so I can keep the formatting). Here is what I have so far: Sub SendEmail() Dim OutlookApp As Object Dim MItem As Object Dim cell As Range Dim email As String Dim cc As String Dim subject As String Dim body As String Dim attach As String Dim I As Long 'Create Outlook object Set OutlookApp = CreateObject("Outlook.Application") ' Loop through the rows For Each cell In Range("b2:b100").Cells.SpecialCells(xlCellTypeCons tants) email = cell.Value subject = cell.Offset(0, 2).Value body = cell.Offset(0, 3).Value cc = cell.Offset(0, 1).Value attach = cell.Offset(0, 4).Value 'Create Mail Item and send it Set MItem = OutlookApp.CreateItem(0) With MItem .To = email .cc = cc .subject = subject .body = body .Attachments.Add "C:\temp\test.xls" .Attachments.Add "C:\temp\test2.xls" .display End With Next End Sub Right now the body is just being pulled from a cell in my excel file, but the cell doesn't hold all the formatting I need. If anyone can help me out here that would be great, or if you even have a better idea on how to simply add the text that's cool too. Thanks, Tyson (Sorry if this is a double post - I got an error page the last time I hit Post) |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do I copy several lines of word text into one excel cell? | New Users to Excel | |||
Copy text from Excel to Word | Excel Programming | |||
Copy text from excel and paste in word - Urgent Help | Excel Programming | |||
how do i find an email and copy the text and paste into excel sheet | Excel Programming | |||
How do I copy a Word text file into Excel in a way that each char. | Excel Discussion (Misc queries) |