changing date in email subject line with vba

[ConfusedaboutVBA]

Hi people.

Guys, i need help with adding a date to the subject line in outlook. basically when I click a button in excel I would like a populated email come up. But what I need to do is have the subject heading date change so it has the previous months date. ie November 2012. Could someone please show me how to do this?

 Sub runMail()

Call OutlookMailSender

End Sub

Sub OutlookMailSender(Optional attachment)

Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.recipient
Dim objOutlookAttach As Outlook.attachment
Dim bodytext As String
Dim recipient As String
Dim mBefore As Date


bodytext = "Hi " & vbNewLine & vbNewLine & vbNewLine & _
"This email was sent by Excel automation"

recipient = "[email protected]"
    

Set objOutlook = CreateObject("Outlook.Application")


Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg

Set objOutlookRecip = .Recipients.Add(recipient)
objOutlookRecip.Type = olTo


Set objOutlookRecip = .Recipients.Add("[email protected]")
objOutlookRecip.Type = olCC


Set objOutlookRecip = .Recipients.Add("[email protected]")
objOutlookRecip.Type = olBCC


.Subject = "HELLO"
.Body = bodytext
.Importance = olImportanceHigh


If Not IsMissing(attachment) Then
Set objOutlookAttach = .Attachments.Add(attachment)
End If

For Each objOutlookRecip In .Recipients

If Not objOutlookRecip.Resolve Then MsgBox "Could not resolve the email for " & objOutlookRecip
Next

If True Then
.Display
Else

.Save
.Send
End If

End With

Set objOutlook = Nothing


End Sub

[martindwilson]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[ConfusedaboutVBA]

Thank gosh you were here to notify me of this crisis.

Code has now been fixed, crisis aborted.

Keep up the good work champ!

[martindwilson]

ha ha not my rule mate but if a mod had seen it they would probably forbidden any replies until you did.

.Subject = "HELLO"

looks to be the bit
so maybe

Sub runMail()

Call OutlookMailSender

End Sub

Sub OutlookMailSender(Optional attachment)

Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.recipient
Dim objOutlookAttach As Outlook.attachment
Dim bodytext As String
Dim recipient As String
Dim mBefore As Date
lastmonth = Format(DateAdd("m", -1, Now()), "yyyy-mmmm")'change format to your prefered layout

bodytext = "Hi " & vbNewLine & vbNewLine & vbNewLine & _
"This email was sent by Excel automation"

recipient = "[email protected]"
    

Set objOutlook = CreateObject("Outlook.Application")


Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg

Set objOutlookRecip = .Recipients.Add(recipient)
objOutlookRecip.Type = olTo


Set objOutlookRecip = .Recipients.Add("[email protected]")
objOutlookRecip.Type = olCC


Set objOutlookRecip = .Recipients.Add("[email protected]")
objOutlookRecip.Type = olBCC


.Subject = "HELLO" & lastmonth 'or just lastmonth without the hello
.Body = bodytext
.Importance = olImportanceHigh


If Not IsMissing(attachment) Then
Set objOutlookAttach = .Attachments.Add(attachment)
End If

For Each objOutlookRecip In .Recipients

If Not objOutlookRecip.Resolve Then MsgBox "Could not resolve the email for " & objOutlookRecip
Next

If True Then
.Display
Else

.Save
.Send
End If

End With

Set objOutlook = Nothing


End Sub