Get Previous Month and Add in Outlook email subject

[VeeBa]

Hi All - Can you please help me with the below code? I am trying to send an outlook email (everything is working fine) except for the subject part. I wanted to include the previous month in the subj. For example, today is May month. I want my subject to be "Apr Salary Report". I have found this line = Dateadd("m",-1, Date) but I only need the month, not exactly the full date.. Any help is appreciated, thanks in advance!

FNm1 = Worksheets("Names").Cells(i, 1).Value

[B]Subject1 = " Salary Report - " & FNm1[/B]

 

[Logit]

.
Here is a sample macro :

Option Explicit


Sub mailchart()
Dim OutApp As Object
Dim OutMail As Object
Dim vInspector, GetInspector, wEditor As Variant




Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)


lm = Format$(DateAdd("m", -1, Now()), "mmmm")


With OutMail
    .To = "yo momma@nowhere.com"
    .CC = "xyz@anc.com"
    .BCC = "abc@xyz.com"
    .Subject = lm & " Salary Report"
    .Body = "Dear" & "Macro " & vbCrLf
    .Display
    ActiveSheet.Range("G11:N26").Copy
    Set vInspector = OutMail.GetInspector
    Set wEditor = vInspector.WordEditor


    wEditor.Application.Selection.Start = Len(.Body)
    wEditor.Application.Selection.End = wEditor.Application.Selection.Start


    wEditor.Application.Selection.Paste


.Display
End With
End Sub

I used the variable lm for last month. The code line at top is : lm = Format$(DateAdd("m", -1, Now()), "mmmm")

The .Subject line is : .Subject = lm & " Salary Report"

 

[VeeBa]

Amazing! Thanks a lot Logit!!

 

[Logit]

You are welcome.