Conditional Statement in a "With" Block

[MikeG]

In the macro below, I only want to add an attachment to an email if the variable cur_num is greater than zero. So I tried the If statement shown, but I find that this does not work in the With block.

Could someone help me out.

Thanks,

MikeG


===============================================


With OutMail
.To = a
.CC = b
.BCC = ""
.Subject = c
.body = d
If cur_num > 0 Then
.Attachments.Add ActiveWorkbook.FullName
End If
.display
End With

 

[AlphaFrog]

The IF statement should work within the With block.

• Double check the value of cur_num
• Make sure the ActiveWorkbook has been saved. An unsaved workbook has no .FullName

 

[MikeG]

The IF statement should work within the With block.

• Double check the value of cur_num
• Make sure the ActiveWorkbook has been saved. An unsaved workbook has no .FullName

Thanks - the problem was with the value of cur_num.

Mike