A Microsoft Outlook email forum. Outlook Banter

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.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Reload this Page Voting button macro code
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Voting button macro code


« Create MAPI Session failure | Cancel a meeting in outlook »

 
 
Thread Tools Search this Thread Display Modes
  #1  
Old April 23rd 08, 08:11 AM posted to microsoft.public.outlook.program_vba
kd
external usenet poster
  
Posts: 4
Default Voting button macro code
Hi,

I have created a macro to send email automatically using MS Outlook. I now
need a macro which will automatically enable the voting buttons, prompting
the receipts to reply by yes or no.

Thanks for any help.

kd
Ads
  #2  
Old April 23rd 08, 02:30 PM posted to microsoft.public.outlook.program_vba
Ken Slovak - [MVP - Outlook]
external usenet poster
  
Posts: 5,848
Default Voting button macro code
Voting buttons can be created/added using custom actions. Search on
www.outlookcode.com for samples using custom actions, there are a number of
them there.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"kd" wrote in message
...
Hi,

I have created a macro to send email automatically using MS Outlook. I now
need a macro which will automatically enable the voting buttons, prompting
the receipts to reply by yes or no.

Thanks for any help.

kd

  #3  
Old April 24th 08, 06:04 AM posted to microsoft.public.outlook.program_vba
kd
external usenet poster
  
Posts: 4
Default Voting button macro code
Thanks Ken,

My macro is not going into Outlook. It is activating the Excel file and
using the send To from the file menu to send the email through Outlook. Is
there a way I can change the default of the new mail in Outlook to always
enable voting button while sending. If not, can I add something in my macro.
I am writing my macro to help you help me. please advise where I can include
the voting button enabling option.

Sub SEND_MAILS_AUTOMATIC()


Dim MACRO_FILE_NAME, MACRO_SHEET, MACRO_SH1 As String
Dim FILE_DIR, MAIL_SUB, MAIL_BODY_1, BU_ID, YTD_ID, QTD_ID, PER_ID,
FIL_ID, FLS_ID, YTS_ID, QTS_ID, PRS_ID As String
Dim LINE_CNT, ST_CNT As Integer

MACRO_FILE_NAME = Worksheets("macro").Cells(4, 11)
MACRO_SHEET = Worksheets("macro").Cells(5, 11)
MACRO_SH1 = Worksheets("macro").Cells(6, 11)

LINE_CNT = Worksheets(MACRO_SHEET).Cells(15, 11)
ST_CNT = Worksheets(MACRO_SHEET).Cells(14, 11)


FILE_DIR = Worksheets(MACRO_SHEET).Cells(30, 11)
MAIL_SUB = Worksheets(MACRO_SHEET).Cells(32, 11)
MAIL_BODY_1 = Worksheets(MACRO_SHEET).Cells(34, 11)

Do ' Outer loop.
Do While ST_CNT LINE_CNT ' Inner loop.
ST_CNT = ST_CNT + 1 ' Increment Counter.

'call MAIL MERGE
MAIL_SEND MACRO_FILE_NAME, MACRO_SHEET, MACRO_SH1, LINE_CNT, ST_CNT,
MAIL_SUB, MAIL_BODY_1, FILE_DIR

If ST_CNT = LINE_CNT Then
Check = False ' Set value of flag to False.
Exit Do ' Exit inner loop.
End If
Loop
Loop Until Check = False ' Exit outer loop immediately.

End Sub

Sub MAIL_SEND(MACRO_FILE_NAME, MACRO_SHEET, MACRO_SH1, LINE_CNT, ST_CNT,
MAIL_SUB, MAIL_BODY_1, FILE_DIR)

Dim FILE_NAME, MAIL_BODY_2, DEPT_ID As String
Dim ADD_1, ADD_2, ADD_3, ADD_4, ADD_5, ADD_6, ADD_7 As String

BU_ID = Worksheets(MACRO_SH1).Cells(ST_CNT, 2)
FLS_ID = Worksheets(MACRO_SH1).Cells(ST_CNT, 13)
ADD_1 = Worksheets(MACRO_SH1).Cells(ST_CNT, 20)
ADD_2 = Worksheets(MACRO_SH1).Cells(ST_CNT, 21)
ADD_3 = Worksheets(MACRO_SH1).Cells(ST_CNT, 22)
ADD_4 = Worksheets(MACRO_SH1).Cells(ST_CNT, 23)
ADD_5 = Worksheets(MACRO_SH1).Cells(ST_CNT, 24)
ADD_6 = Worksheets(MACRO_SH1).Cells(ST_CNT, 25)
ADD_7 = Worksheets(MACRO_SH1).Cells(ST_CNT, 26)

Workbooks.Open Filename:=FILE_DIR & FLS_ID

Workbooks(FLS_ID).HasRoutingSlip = True
With Workbooks(FLS_ID).RoutingSlip
.Recipients = Array(ADD_1, ADD_2, ADD_3, ADD_4, ADD_5, ADD_6, ADD_7)
.Subject = "CC Owner - " & BU_ID & " - " & MAIL_SUB
.Message = MAIL_BODY_1
.ReturnWhenDone = False
.TrackStatus = False
.Delivery = xlAllAtOnce
End With
Workbooks(FLS_ID).Route
ActiveWorkbook.Close SaveChanges:=False

End Sub

Thanks again for your help!!

"Ken Slovak - [MVP - Outlook]" wrote:

Voting buttons can be created/added using custom actions. Search on
www.outlookcode.com for samples using custom actions, there are a number of
them there.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"kd" wrote in message
...
Hi,

I have created a macro to send email automatically using MS Outlook. I now
need a macro which will automatically enable the voting buttons, prompting
the receipts to reply by yes or no.

Thanks for any help.

kd


  #4  
Old April 24th 08, 02:35 PM posted to microsoft.public.outlook.program_vba
Ken Slovak - [MVP - Outlook]
external usenet poster
  
Posts: 5,848
Default Voting button macro code
The Excel Send To functionality uses Simple MAPI to open an email using your
default mail handler, assuming the mail handler supports MAPI. The item, if
an Outlook item, is opened as a modal Inspector. To do what you want you
would have to use the Outlook object model and not the Simple MAPI call,
unless your voting buttons are always the same and from a custom Outlook
form that is made the default for all message forms.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"kd" wrote in message
...
Thanks Ken,

My macro is not going into Outlook. It is activating the Excel file and
using the send To from the file menu to send the email through Outlook. Is
there a way I can change the default of the new mail in Outlook to always
enable voting button while sending. If not, can I add something in my
macro.
I am writing my macro to help you help me. please advise where I can
include
the voting button enabling option.

Sub SEND_MAILS_AUTOMATIC()


Dim MACRO_FILE_NAME, MACRO_SHEET, MACRO_SH1 As String
Dim FILE_DIR, MAIL_SUB, MAIL_BODY_1, BU_ID, YTD_ID, QTD_ID, PER_ID,
FIL_ID, FLS_ID, YTS_ID, QTS_ID, PRS_ID As String
Dim LINE_CNT, ST_CNT As Integer

MACRO_FILE_NAME = Worksheets("macro").Cells(4, 11)
MACRO_SHEET = Worksheets("macro").Cells(5, 11)
MACRO_SH1 = Worksheets("macro").Cells(6, 11)

LINE_CNT = Worksheets(MACRO_SHEET).Cells(15, 11)
ST_CNT = Worksheets(MACRO_SHEET).Cells(14, 11)


FILE_DIR = Worksheets(MACRO_SHEET).Cells(30, 11)
MAIL_SUB = Worksheets(MACRO_SHEET).Cells(32, 11)
MAIL_BODY_1 = Worksheets(MACRO_SHEET).Cells(34, 11)

Do ' Outer loop.
Do While ST_CNT LINE_CNT ' Inner loop.
ST_CNT = ST_CNT + 1 ' Increment Counter.

'call MAIL MERGE
MAIL_SEND MACRO_FILE_NAME, MACRO_SHEET, MACRO_SH1, LINE_CNT,
ST_CNT,
MAIL_SUB, MAIL_BODY_1, FILE_DIR

If ST_CNT = LINE_CNT Then
Check = False ' Set value of flag to False.
Exit Do ' Exit inner loop.
End If
Loop
Loop Until Check = False ' Exit outer loop immediately.

End Sub

Sub MAIL_SEND(MACRO_FILE_NAME, MACRO_SHEET, MACRO_SH1, LINE_CNT, ST_CNT,
MAIL_SUB, MAIL_BODY_1, FILE_DIR)

Dim FILE_NAME, MAIL_BODY_2, DEPT_ID As String
Dim ADD_1, ADD_2, ADD_3, ADD_4, ADD_5, ADD_6, ADD_7 As String

BU_ID = Worksheets(MACRO_SH1).Cells(ST_CNT, 2)
FLS_ID = Worksheets(MACRO_SH1).Cells(ST_CNT, 13)
ADD_1 = Worksheets(MACRO_SH1).Cells(ST_CNT, 20)
ADD_2 = Worksheets(MACRO_SH1).Cells(ST_CNT, 21)
ADD_3 = Worksheets(MACRO_SH1).Cells(ST_CNT, 22)
ADD_4 = Worksheets(MACRO_SH1).Cells(ST_CNT, 23)
ADD_5 = Worksheets(MACRO_SH1).Cells(ST_CNT, 24)
ADD_6 = Worksheets(MACRO_SH1).Cells(ST_CNT, 25)
ADD_7 = Worksheets(MACRO_SH1).Cells(ST_CNT, 26)

Workbooks.Open Filename:=FILE_DIR & FLS_ID

Workbooks(FLS_ID).HasRoutingSlip = True
With Workbooks(FLS_ID).RoutingSlip
.Recipients = Array(ADD_1, ADD_2, ADD_3, ADD_4, ADD_5, ADD_6, ADD_7)
.Subject = "CC Owner - " & BU_ID & " - " & MAIL_SUB
.Message = MAIL_BODY_1
.ReturnWhenDone = False
.TrackStatus = False
.Delivery = xlAllAtOnce
End With
Workbooks(FLS_ID).Route
ActiveWorkbook.Close SaveChanges:=False

End Sub

Thanks again for your help!!

"Ken Slovak - [MVP - Outlook]" wrote:

Voting buttons can be created/added using custom actions. Search on
www.outlookcode.com for samples using custom actions, there are a number
of
them there.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"kd" wrote in message
...
Hi,

I have created a macro to send email automatically using MS Outlook. I
now
need a macro which will automatically enable the voting buttons,
prompting
the receipts to reply by yes or no.

Thanks for any help.

kd
 



« Previous Thread | Next Thread »

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
how do I code message send options for voting priority category? JC Outlook and VBA 1 January 3rd 08 05:31 PM
Voting Button Tracking Issue [email protected] Outlook - General Queries 0 January 9th 07 11:58 AM
my 3rd voting button in outlook form causes loop in tracking Kate Outlook - Using Forms 1 August 29th 06 12:41 PM
Voting Button DavidW Outlook - Using Forms 21 May 31st 06 04:31 PM
Voting button stanhope4 Outlook and VBA 6 April 13th 06 08:11 PM


All times are GMT +1. The time now is 04:07 AM.

Feed Icon - Contact Us - OutlookBanter Home - FAQ - Links - Privacy Statement - Top

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.