|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Display Modes |
|
#1
April 29th 08, 07:56 PM
posted to microsoft.public.excel.programming
|
|||
|
|||
Send mail with outlook message options-voting importance
Ron's Code is greaqt --new at programming excel.
The code you give in MSN for send mail is great I need to automate one more option from outlook, the voting options Want to add automatic message options option to Ron's code Example: If IsNull(Vote) = False Then .VotingOptions = Vote End If Select Case Urgency Case 2 .Importance = olImportanceHigh Case 0 .Importance = olImportanceLow Case Else .Importance = olImportanceNormal End Select but this is not working in excel. 
|
| Ads |
|
#2
April 29th 08, 08:05 PM
posted to microsoft.public.excel.programming
|
|||
|
|||
|
Send mail with outlook message options-voting importance
Hi JC
Do you use Late or Early binding Do you have the Importance code working ? -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "JC" > wrote in message ... > Ron's Code is greaqt --new at programming excel. > The code you give in MSN for send mail is great I need to automate > one more option from outlook, the voting options > > Want to add automatic message options option to Ron's code > > Example: > If IsNull(Vote) = False Then > .VotingOptions = Vote > End If > > Select Case Urgency > Case 2 > .Importance = olImportanceHigh > Case 0 > .Importance = olImportanceLow > Case Else > .Importance = olImportanceNormal > End Select > > but this is not working in excel. >
|
|
#3
April 30th 08, 02:38 PM
posted to microsoft.public.excel.programming
|
|||
|
|||
|
Send mail with outlook message options-voting importance
No the code isn't working
I think I also need the correct binding code "Ron de Bruin" wrote: > Hi JC > > Do you use Late or Early binding > > Do you have the Importance code working ? > > -- > > Regards Ron de Bruin > http://www.rondebruin.nl/tips.htm > > > "JC" > wrote in message ... > > Ron's Code is greaqt --new at programming excel. > > The code you give in MSN for send mail is great I need to automate > > one more option from outlook, the voting options > > > > Want to add automatic message options option to Ron's code > > > > Example: > > If IsNull(Vote) = False Then > > .VotingOptions = Vote > > End If > > > > Select Case Urgency > > Case 2 > > .Importance = olImportanceHigh > > Case 0 > > .Importance = olImportanceLow > > Case Else > > .Importance = olImportanceNormal > > End Select > > > > but this is not working in excel. > > >
|
|
#4
April 30th 08, 04:09 PM
posted to microsoft.public.excel.programming
|
|||
|
|||
|
Send mail with outlook message options-voting importance
Try this one JC
Sub Mail_small_Text_Outlook() ' Is working in Office 2000-2007 Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) strbody = "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" & vbNewLine & _ "This is line 3" & vbNewLine & _ "This is line 4" On Error Resume Next With OutMail .To = " .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = strbody ' 0 = Low, 2 = High, 1 = Normal .Importance = 2 .VotingOptions = "Approved;Disapproved" .Send 'or use .Display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "JC" > wrote in message ... > No the code isn't working > I think I also need the correct binding code > > "Ron de Bruin" wrote: > >> Hi JC >> >> Do you use Late or Early binding >> >> Do you have the Importance code working ? >> >> -- >> >> Regards Ron de Bruin >> http://www.rondebruin.nl/tips.htm >> >> >> "JC" > wrote in message ... >> > Ron's Code is greaqt --new at programming excel. >> > The code you give in MSN for send mail is great I need to automate >> > one more option from outlook, the voting options >> > >> > Want to add automatic message options option to Ron's code >> > >> > Example: >> > If IsNull(Vote) = False Then >> > .VotingOptions = Vote >> > End If >> > >> > Select Case Urgency >> > Case 2 >> > .Importance = olImportanceHigh >> > Case 0 >> > .Importance = olImportanceLow >> > Case Else >> > .Importance = olImportanceNormal >> > End Select >> > >> > but this is not working in excel. >> > >>
|
|
#5
April 30th 08, 06:17 PM
posted to microsoft.public.excel.programming
|
|||
|
|||
|
Send mail with outlook message options-voting importance
Works great. Thank you
How about the Delivery option? to return responses to group mailbox and how do I set the send response option with EDIT THE RESPONSE before sending option with orig message included in the response "Ron de Bruin" wrote: > Try this one JC > > Sub Mail_small_Text_Outlook() > ' Is working in Office 2000-2007 > Dim OutApp As Object > Dim OutMail As Object > Dim strbody As String > > Set OutApp = CreateObject("Outlook.Application") > OutApp.Session.Logon > Set OutMail = OutApp.CreateItem(0) > > strbody = "Hi there" & vbNewLine & vbNewLine & _ > "This is line 1" & vbNewLine & _ > "This is line 2" & vbNewLine & _ > "This is line 3" & vbNewLine & _ > "This is line 4" > > On Error Resume Next > With OutMail > .To = " > .CC = "" > .BCC = "" > .Subject = "This is the Subject line" > .Body = strbody > ' 0 = Low, 2 = High, 1 = Normal > .Importance = 2 > .VotingOptions = "Approved;Disapproved" > .Send 'or use .Display > End With > On Error GoTo 0 > > Set OutMail = Nothing > Set OutApp = Nothing > End Sub > > > -- > > Regards Ron de Bruin > http://www.rondebruin.nl/tips.htm > > > "JC" > wrote in message ... > > No the code isn't working > > I think I also need the correct binding code > > > > "Ron de Bruin" wrote: > > > >> Hi JC > >> > >> Do you use Late or Early binding > >> > >> Do you have the Importance code working ? > >> > >> -- > >> > >> Regards Ron de Bruin > >> http://www.rondebruin.nl/tips.htm > >> > >> > >> "JC" > wrote in message ... > >> > Ron's Code is greaqt --new at programming excel. > >> > The code you give in MSN for send mail is great I need to automate > >> > one more option from outlook, the voting options > >> > > >> > Want to add automatic message options option to Ron's code > >> > > >> > Example: > >> > If IsNull(Vote) = False Then > >> > .VotingOptions = Vote > >> > End If > >> > > >> > Select Case Urgency > >> > Case 2 > >> > .Importance = olImportanceHigh > >> > Case 0 > >> > .Importance = olImportanceLow > >> > Case Else > >> > .Importance = olImportanceNormal > >> > End Select > >> > > >> > but this is not working in excel. > >> > > >> >
|
|
#6
April 30th 08, 10:18 PM
posted to microsoft.public.excel.programming
|
|||
|
|||
|
Send mail with outlook message options-voting importance
Hi JC
You can see all Outlook options if you go into Early binding http://www.rondebruin.nl/mail/folder3/smallmessage.htm See on the bottom of the page Good night -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "JC" > wrote in message ... > Works great. Thank you > How about the Delivery option? to return responses to group mailbox > and how do I set the send response option with > EDIT THE RESPONSE before sending option > with orig message included in the response > > > "Ron de Bruin" wrote: > >> Try this one JC >> >> Sub Mail_small_Text_Outlook() >> ' Is working in Office 2000-2007 >> Dim OutApp As Object >> Dim OutMail As Object >> Dim strbody As String >> >> Set OutApp = CreateObject("Outlook.Application") >> OutApp.Session.Logon >> Set OutMail = OutApp.CreateItem(0) >> >> strbody = "Hi there" & vbNewLine & vbNewLine & _ >> "This is line 1" & vbNewLine & _ >> "This is line 2" & vbNewLine & _ >> "This is line 3" & vbNewLine & _ >> "This is line 4" >> >> On Error Resume Next >> With OutMail >> .To = " >> .CC = "" >> .BCC = "" >> .Subject = "This is the Subject line" >> .Body = strbody >> ' 0 = Low, 2 = High, 1 = Normal >> .Importance = 2 >> .VotingOptions = "Approved;Disapproved" >> .Send 'or use .Display >> End With >> On Error GoTo 0 >> >> Set OutMail = Nothing >> Set OutApp = Nothing >> End Sub >> >> >> -- >> >> Regards Ron de Bruin >> http://www.rondebruin.nl/tips.htm >> >> >> "JC" > wrote in message ... >> > No the code isn't working >> > I think I also need the correct binding code >> > >> > "Ron de Bruin" wrote: >> > >> >> Hi JC >> >> >> >> Do you use Late or Early binding >> >> >> >> Do you have the Importance code working ? >> >> >> >> -- >> >> >> >> Regards Ron de Bruin >> >> http://www.rondebruin.nl/tips.htm >> >> >> >> >> >> "JC" > wrote in message ... >> >> > Ron's Code is greaqt --new at programming excel. >> >> > The code you give in MSN for send mail is great I need to automate >> >> > one more option from outlook, the voting options >> >> > >> >> > Want to add automatic message options option to Ron's code >> >> > >> >> > Example: >> >> > If IsNull(Vote) = False Then >> >> > .VotingOptions = Vote >> >> > End If >> >> > >> >> > Select Case Urgency >> >> > Case 2 >> >> > .Importance = olImportanceHigh >> >> > Case 0 >> >> > .Importance = olImportanceLow >> >> > Case Else >> >> > .Importance = olImportanceNormal >> >> > End Select >> >> > >> >> > but this is not working in excel. >> >> > >> >> >>
|
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| send mail without outlook | x taol | Excel Programming | 9 | March 21st 08 04:18 AM |
| Macro to send a mail to outlook | [email protected] | Excel Discussion (Misc queries) | 1 | August 24th 06 12:48 PM |
| How can I use Outlook express to send mail rather than Outlook by VBA code | new.microsoft.com | Excel Programming | 5 | August 3rd 05 03:45 PM |
| Help for Send Mail via Outlook | new.microsoft.com | Excel Programming | 5 | August 2nd 05 01:00 AM |
| How can I use Outlook express to send mail rather than Outlook by VBA code | new.microsoft.com | Excel Programming | 1 | August 1st 05 12:45 PM |
Linear Mode
