Email question
 

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 ", "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

Email question
 

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


--
Regards,
Tom Ogilvy


"olly" wrote in message
...
Ok thanks-but can you put for instance
.SendMail Array(" ", "),

what i want it to do is auto put someone in the sending
list, but not to send the mail until the user selects
another person from the address book. Is this how you do
it ? doesn't seem to be working when i try it..
any help very much appreciated
cheers
olly


-----Original Message-----
Sendmail doesn't make that distinction (or offer that
option). You can send
to multiple people with

..SendMail Array
"),
"Confirmation - "

Regards,
Tom Ogilvy