Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using Macro how to create email link for the email addresses in aRange or Selection | Excel Worksheet Functions | |||
Email Question | Excel Discussion (Misc queries) | |||
cannot open email reply to previous question | Excel Discussion (Misc queries) | |||
Email from Excel - 2 Part Question | Excel Discussion (Misc queries) | |||
send wkbk as an email attachment with an email address copied from | Excel Discussion (Misc queries) |