Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Copy select cells from active row into email body
Hello,
I am looking for some help with the syntax for copying range A:F of the active row based on the formula information from the vb excerpt below. What you see works great, but I need to replace the "insert A-F HERE" in the email body with actual data. Sub FollowUp() Dim Cell As Range For Each Cell In Sheet3.Range("L3:L" & Sheet3.Range("L" & Rows.Count).End(xlUp).Row) If IsEmpty(Cell.Value) Then GoTo X: If Cell.Value - Date <= -10 Then Cell.Interior.ColorIndex = 45 If Cell.Interior.ColorIndex =45 Then Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) strbody = "The quote approval period for the Repair asset" & vbNewLine & _ "listed below has expired:" & vbNewLine & vbNewLine & _ "Insert A-F HERE" & vbNewLine & _ "Please contact the customer as soon as possible" & vbNewLine _ On Error Resume Next With OutMail... Thank you in advance for your patience and understanding |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
COPY/PASTE to body of email the format of Excell cell | Excel Programming | |||
Copy the body of an existing email in new emails generated via Excel with VBA. | Excel Programming | |||
Copy a sheet to the body of an email or attach part of a spreadsheet | Excel Programming | |||
Copy a sheet to the body of an email or attach part of a spreadsheet | Excel Programming | |||
Copy and Paste a Worksheet Range to Email Body | Excel Programming |