Chosing Attachment Based On Condition Before Sending Mail In Outlook

[Excel Fox]

Add this to the module

Function SubjToPass(strSituation As String, Optional lngOutlier As Long)

    Dim str As String
    Select Case strSituation
        Case ">30"
        If lngOutlier > 1 Then
            SubjToPass = "Multiple workflows with more than 30 days"
        ElseIf lngOutlier = 1 Then
            SubjToPass = "Single WF with more than 30 days"
        End If
        Case "<=30"
            SubjToPass = "Workflows without more than 30days"
        End Select
        
End Function

And in the subject line, use

.Subect = SubjToPass(strSituation, lngOutlier)

[jja082]

I have edited the macro, but when i save the macro to our shared folders, the macro won't work, do you have idea why? also there are cases which the macro work,

1. if i create a new file, copying all macro, then it works, but when i transfered or save the file from ather share folders, the macro is not working.
2. if it is save and wont work, i am running the VBA, then the open sheet is "Mailinfo" the macro is running but it copies the date from the said sheet.