A
Atishoo
does anyone know how to get the email function to email a recipient whos
address is in a cell (D21) ?
eg-- how do i get this to work:-
With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr,
FileFormat:=FileFormatNum
On Error Resume Next
.SendMail Sheets("Options").Range("D21").Value, "EPB"
On Error GoTo 0
.Close SaveChanges:=False
End With
address is in a cell (D21) ?
eg-- how do i get this to work:-
With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr,
FileFormat:=FileFormatNum
On Error Resume Next
.SendMail Sheets("Options").Range("D21").Value, "EPB"
On Error GoTo 0
.Close SaveChanges:=False
End With