Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I don't want to send a workbook. My coding is all set. I have the macro
run, and if a certain value is reached, then I want to send an email out to 2 people. Simple as that. But I can't figure out the coding. Will someone PLEASE answer me using my examples listed below? I want the subject of the email to say = "Value has been reached" I want to send the email to = " AND " I don't want any attachments OR body text. Just send it to certain people AND a subject heading. Can someone please help WITHOUT directing me to someone else's website? Thx |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Check this site, Ron has some good stuff
http://www.rondebruin.nl/tips.htm -- steveB Remove "AYN" from email to respond "swesterm" wrote in message ... I don't want to send a workbook. My coding is all set. I have the macro run, and if a certain value is reached, then I want to send an email out to 2 people. Simple as that. But I can't figure out the coding. Will someone PLEASE answer me using my examples listed below? I want the subject of the email to say = "Value has been reached" I want to send the email to = " AND " I don't want any attachments OR body text. Just send it to certain people AND a subject heading. Can someone please help WITHOUT directing me to someone else's website? Thx |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Hi, You could use something like this: ( I have it running in my applicatin) Code: -------------------- ' Select the range of cells on the active worksheet. ActiveSheet.Range("B4:F49").Select Nombre= email.Text Asunto = Asunto.Text Intro = Intro.Text If Ccmail.Text = "inserte e-mail adicional (opcional)" Then ConCopia = "" Else ConCopia = Ccmail.Text End If ' 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 ActiveSheet.MailEnvelope .Introduction = Intro .Item.To = nombre .Item.Subject = Asunto .Item.CC = ConCopia .Item.Send End With End Sub -------------------- You have to adjust it a little bit, but is the best answer i found, even better that the link provided in the last response ( I looked them all!!). Hope this helps Regards Jose Luis swesterm Wrote: I don't want to send a workbook. My coding is all set. I have the macro run, and if a certain value is reached, then I want to send an email out to 2 people. Simple as that. But I can't figure out the coding. Will someone PLEASE answer me using my examples listed below? I want the subject of the email to say = "Value has been reached" I want to send the email to = " AND " I don't want any attachments OR body text. Just send it to certain people AND a subject heading. Can someone please help WITHOUT directing me to someone else's website? Thx -- jose luis ------------------------------------------------------------------------ jose luis's Profile: http://www.excelforum.com/member.php...o&userid=13312 View this thread: http://www.excelforum.com/showthread...hreadid=385031 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Excel Macro to creat & send email | Excel Discussion (Misc queries) | |||
Code to send a email via Macro in excel | Excel Discussion (Misc queries) | |||
use excel to send email without macro | Excel Discussion (Misc queries) | |||
***** PLEASE HELP **** Send an email from Excel to outlook with an automatic macro | Excel Discussion (Misc queries) | |||
macro to send an email from excel | Excel Programming |