Email question

  • Thread starter Thread starter olly
  • Start date Start date
O

olly

I have the following code to send a mail from excel

Private Sub Email_Click()
Dim strDate As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-
mm-ss")
FName$ = "Confirmation - " & strDate
Application.SheetsInNewWorkbook = 1
Set wbNew = Workbooks.Add
With wbNew
ThisWorkbook.ActiveSheet.Copy (.Worksheets(1))
..Worksheets(2).Delete
With .ActiveSheet.UsedRange
..Copy
..PasteSpecial xlPasteValues
Worksheets(1).Protect password:="*******", _
DrawingObjects:=False, Contents:=True, Scenarios:=True
End With
..SaveAs Filename:="c:\" & FName$ & ".xls"
..SendMail "(e-mail address removed)", "Confirmation - " &
strDate
..ChangeFileAccess xlReadOnly
Kill .FullName
..Close SaveChanges:=False
End With
ThisWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

But how would i get this code to send a CC to a recipient?
Any help greatly appreciated
cheers
olly
 
No. Sendmail is a single command - it doesn't offer choices or interaction.

If you want to interact with the user, you will need to program that
interface. Put up the choices in a dialog, then put the selection in the
array and do sendmail. Or you can get more sophisticated by programming
the Outlook object model if you wish. See Ron de Bruin's site for some
discussion.

http://www.rondebruin.nl/sendmail.htm

Dick Kusileka also has some information:
www.dicks-clicks.com
 
Back
Top