How to add signature to my automail in VBA

gssachin

Board Regular
Joined
Nov 14, 2013
Messages
121
Dear All,

I m using following codes to generate auto mail. In that I want to add signature. Please help

Sub automail()
Dim R As Range
Set R = Sheets("PIVOT").Cells


Dim i As Integer
For i = 2 To 6


Range("B5").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("LOCATION").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("LOCATION").CurrentPage = Sheet4.Range("A" & i).Value

ActiveWorkbook.EnvelopeVisible = True


With R.Parent.MailEnvelope
.Introduction = Sheet4.Range("a9").Value
With .Item
.To = Sheet4.Range("B" & i).Value
.cc = Sheet4.Range("c" & i).Value
.bcc = ""
.Subject = "VARIOUS REIMBURSEMENT PAID"
.send


End With
End With
Next i


End Sub
 

Some videos you may like

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.

Forum statistics

Threads
1,089,435
Messages
5,408,208
Members
403,189
Latest member
Dona88

This Week's Hot Topics

  • help please
    SORRY NOT ANY GOOD AT EXCEL SO HELP WOULD BE MUCH APPRECIATED this formula is in a sheet called ignore...
  • two formulas needed
    Hello, I'll try my best to explain this: First formula needed in Sheet1 cell A2: If Sheet1 cell B2 = Sheet2 cell B2 then return a 1. If not then...
  • Dynamic Counts
    Good afternoon, we are tidying up some data & the data seems to be growing quicker than we are tidying it up! What we confirm (by reviewing it...
  • Help Excel formula eliminate duplicate values and keep only 2 identical rows.
    as picture below column A has a duplicate value. but the values are not the same as the rule. sometimes 4 rows, sometimes 10 rows or 7 or 9...
  • Macro Compile Error Sub or Function not defined
    Hello, I am trying to run macros from a validation list, all macros have been created and run perfectly on there own but I'm getting a compile...
  • Last row combined with Current Region VBA
    I'm generally happy finding the last row of data through something like Lastrow = Cells(Rows.Count, "D").End(xlUp) but I don't always receive data...
Top