Hi
I have this:
is there a way to add a bcc adress

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
'On Error Resume Next

' .SendMail "
Application.DisplayAlerts = False
ActiveWorkbook.SendMail ", _
Subject:=strSubject


On Error GoTo 0
.Close SaveChanges:=False
End With

Alvin