Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Email again in excel
Hi i use this
Sub Send_Range() em = Range("gemte!$b$2").Value ' Select the range of cells on the active worksheet. Sheets("email").Activate Sheets("email").Range("A1:n71").Select ' Show the envelope on the ActiveWorkbook. ActiveWorkbook.EnvelopeVisible = True ' Set the optional introduction field thats adds ' some header text to the email body. It also sets ' the To and Subject lines. Finally the message ' is sent. With Sheets("email").MailEnvelope .Introduction = "Mail vedr. Booking Usa" .Item.To = em .Item.Subject = "Booking usa" .Item.Send End With MsgBox ("Email er afsendt til: " & em) End Sub Now if a user when the dialog box comes up from outlook about sending the mail say no to sending then i get an error, is there away in this code to exit sub or something like that if the user say no to sending the mail. Best regards alvin |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
send email to each customer email in excel sheet. | Excel Discussion (Misc queries) | |||
Email addresses in Excel need to format for mass email | Excel Worksheet Functions | |||
Email editor closes when forwarding Excel-embedded email | Setting up and Configuration of Excel | |||
working on excel document in email saved changes in email not in . | Excel Discussion (Misc queries) | |||
body of email disappears when I send an email from Excel | Excel Discussion (Misc queries) |