OutlookCode.com forumsOutlook programming issues discussions.http://www.outlookcode.com/rss.aspx?feed=FORUMS
Fri, 24 May 2013 18:14:32 GMThttp://backend.userland.com/rssRSS.NET: http://www.rssdotnet.com/Inserting Shapes in Outlook messageHi
I am trying to write a macro to add to my quick access toolbar in 2010 which will automatic insert a circular shape with no fill.
I recorded this macro in Excel but how do I incorporate this into outlook.
&lt;CODE&gt;
'***will Insert a circular Shape with no Fill
Sub InsertShape()
ActiveSheet.Shapes.AddShape(msoShapeOval, 47.25, 41.25, 177.75, 106.5).Select
Selection.ShapeRange.Fill.Visible = msoFalse
'Range("C6").Select
End Sub
&lt;CODE\&gt; http://www.outlookcode.com/threads.aspx?forumid=2&messageid=34069
Fri, 24 May 2013 18:14:32 GMTCreate recurring email/alert in Outlook 2007Hi all,
I need to create an email that recurs after 1, 3, 6, 9, and 11 months from the day it is sent. I only want to have to send it once. The purpose is to alert project team members to complete a task due at the intervals listed above. If possible, each email would also automatically trigger the scheduling of a meeting for all the email recipients, for the week following the email.
Any ideas? I have looked around code sites and cannot find exactly what i am after. I am not a VBA expert.
Thanks http://www.outlookcode.com/threads.aspx?forumid=2&messageid=34064
Fri, 24 May 2013 05:15:45 GMTOutlook 2010 - Print first page - SelectionHi,
I understand that this forum is littered with topics on printing the first page in outlook. However, none appear to address printing the first page of a whole selection.
I know in outlook in general, print controls are poor, but in 2010 you can print the first page of an individual email using send keys as follows:
-----------------------------------------------------
SendKeys "%FPR"
SendKeys "%S"
SendKeys "1"
SendKeys "{ENTER}"
-----------------------------------------------------
So based on the above, I have tried to incorporate this into printing a selection of multiple items using the same method.
The following code works correctly for cycling through your active selection and identifying each mail item's subject:
-----------------------------------------------------
Sub printmultiples()
Dim mymsg As MailItem
For Each mymsg In ActiveExplorer.Selection
Msgbox mymsg.subject
Next
End Sub
-----------------------------------------------------
I idea is to amend the code to include the send keys instead of the msg subject. Unfortunately this is where it falls down.
The code runs the cycle as usual, but the resulting output is a print off of the same email multiple times (as many as in your selection). The only thing I can think of is the send keys are reacting in a different way when used like this(I know they are not the most reliable).
Any help of suggestions would be greatly appreciated.
Thanks,
Matt
http://www.outlookcode.com/threads.aspx?forumid=2&messageid=34063
Thu, 23 May 2013 15:50:48 GMTLooking for help designing an Outlook Calendar event (newbee)I'm responsible for creating/maintaining a calendar of my department's marketing events (trade shows, user meetings, editorial articles, blogs, webinars...). I'd like to create an Outlook form (or forms) that the event owners complete for posting to the calendar directly.
I'm working with Outlook 2010.
It looks like, based on my lack of experience and Outlooks limitations in calendar forms, that I'd be better off (less frustrated) creating an email form and then manually cutting/pasting the information into a standard event. Would you agree?
Any help, advice or direction would be GREATLY appreciated. http://www.outlookcode.com/threads.aspx?forumid=3&messageid=34018
Mon, 20 May 2013 16:52:52 GMTForward Compatibility of Office 2003 Add-In with Office 2013I've built a VTSO add-in using Visual Studio 2008 targeting Outlook 2003 as the minimum version. Works fine on Outlook 2003, 2007, and 2010. However, it does not load in Outlook 2013. I see the dreaded message in Outlook "Not loaded. A runtime error occurred during the loading of the COM Add-in."
Should it load? Is the 2013 PIA compatible with an Add-In built for 2003? (Talking 32-bit Outlook here.)
I've turned on the VSTO environment warning flag, but no message. Tried turning on Fusion logging too, no helpful info found there either.
Thanks,
Joe A.
http://www.outlookcode.com/threads.aspx?forumid=5&messageid=34004
Fri, 17 May 2013 22:42:52 GMTHelp please! Custom Appointment Form - CheckBox to add Meeting AttendeeI have been searching around for weeks but cannot locate the solution to my issue. I apologize if this topic has been posted before!
I have a custom appointment form that is the second tab of my appointment (the default appointment tab is still visible and the custom tab "Client Appointment" is in place of the P.2 tab)
I would like to add a CheckBox so that when checked, adds a specific meeting attendee. I also need the code for when you uncheck the box, the attendee is removed.
My check box is on the custom tab "Client Appointment", for now the properties are set to the following:
Name- set to "CheckBox1"
Capiton- set to "CheckBox1"
Value- New Field with the Name="CheckBox1", Type="Yes/No", Format="Icon", Property to use="Value"
I have the following code (which when I used it on a Message form worked perfectly!)
'Add Client Calendar to Recipients when Client Meeting box is checked
Sub CheckBox1_Click()
Set myPage = Item.GetInspector.ModifiedFormPages("Client Appointment")
Set CheckBox1 = myPage.Controls("CheckBox1")
If CheckBox1.Value = True Then
Item.Recipients.Add "TEST RECIPIENTS NAME"
Else
For each recip in Item.Recipients
If recip.Name = "TEST RECIPIENTS NAME" then
recip.Delete
End If
Next
End If
Item.Recipients.ResolveAll
End Sub
Is this even possible on a custom appointment form?
Thank you in advance! http://www.outlookcode.com/threads.aspx?forumid=4&messageid=33983
Thu, 16 May 2013 01:31:28 GMTVBA Get Attachments AmendmentsI have obtained some VBA code which saves all atatchedments in the Inbox to a folder on the hard disc.
I basically don't want it to copy all files in the inbox but a selected folder.
Could somebody amend the code to select a folder and not the indox please.
Code below
Option Explicit
'***********************************************************************
'* Code based on sample code from Martin Green and adapted to my needs *
'***********************************************************************
Sub GetAttachments()
On Error Resume Next
'create the folder if it doesnt exists:
Dim fso, ttxtfile, txtfile, WheretosaveFolder
Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders
'MsgBox objFolders("mydocuments")
ttxtfile = objFolders("mydocuments")
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateFolder(ttxtfile & "\Email Attachments")
Set fso = Nothing
WheretosaveFolder = ttxtfile & "\Email Attachments"
On Error GoTo GetAttachments_err
' Declare variables
Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer
Set ns = GetNamespace("MAPI")
'Set Inbox = ns.GetDefaultFolder(olFolderInbox)
' added the option to select whic folder to export
Set Inbox = ns.PickFolder
'to handle if the use cancalled folder selection
If Inbox Is Nothing Then
MsgBox "You need to select a folder in order to save the attachments", vbCritical, _
"Export - Not Found"
Exit Sub
End If
''''
i = 0
' Check Inbox for messages and exit of none found
If Inbox.Items.Count = 0 Then
MsgBox "There are no messages in the selected folder.", vbInformation, _
"Export - Not Found"
Exit Sub
End If
' Check each message for attachments
For Each Item In Inbox.Items
' Save any attachments found
For Each Atmt In Item.Attachments
' This path must exist! Change folder name as necessary.
' FileName = "C:\Email Attachments\" & Atmt.FileName
'if want to add a filter:
'If Right(Atmt.FileName, 3) = "xls" Then
FileName = WheretosaveFolder & "\" & Atmt.FileName
Atmt.SaveAsFile FileName
i = i + 1
Next Atmt
Next Item
' Show summary message
If i &gt; 0 Then
MsgBox "There were " & i & " attached files." _
& vbCrLf & "These have been saved to the Email Attachments folder in My Documents." _
& vbCrLf & vbCrLf & "Thank you for using Liron Segev - TheTechieGuy's utility", vbInformation, "Export Complete"
Else
MsgBox "There were no attachments found in any mails.", vbInformation, "Export - Not Found"
End If
' Clear memory
GetAttachments_exit:
Set Atmt = Nothing
Set Item = Nothing
Set ns = Nothing
Exit Sub
' Handle errors
GetAttachments_err:
MsgBox "An unexpected error has occurred." _
& vbCrLf & "Please note and report the following information." _
& vbCrLf & "Macro Name: GetAttachments" _
& vbCrLf & "Error Number: " & Err.Number _
& vbCrLf & "Error Description: " & Err.Description _
, vbCritical, "Error!"
Resume GetAttachments_exit
End Sub http://www.outlookcode.com/threads.aspx?forumid=1&messageid=33980
Wed, 15 May 2013 14:04:46 GMTCustom Appointment FormExchange 2007, Outlook 2007. Organizational Forms Library.
I've created a Leave Request Form. I've added several Cutom Action forms such as Approve Leave, Deny Leave, and Add Leave To Your Claendar. These custom action forms are all published in the OFL.
It all works quite well, except when you choose the custom action, Add leave To Your Calendar. The Appointment form comes up and has all the info populated correctly, but when you click 'Save and Close' the form is saved in the Inbox and not the Calendar. You can then drag and drop to the Calendar folder. How can I get the Appointment to save directly to the Calendar?
A supervisor receives the Leave Request in his Inbox. He opens and selects Add Leave To Your Calendar from the Custom Actions dropdown. Clicks Save and Close. The message with message class IPM.Appointment.AddLeaveToCalendar is saved in the supervisor's Inbox.
The Add Leave To Your Calendar form works fine if you open it directly form the Forms Library. It is when you open the Leave Request form frrm the Inbox and choose the Custom Actions (Add Leave To Your Calendar) that is saves in the wrong place.
There must be some code I can add to get the appoinment to save to the Calendar folder insted of back in the Inbox.
Any ideas?
Thanks
Additional Info --
The issue seems to be where the from is being opened from. The supervisor receives the Leave Request (IPM.Note.LeaveRequest) in his Inbox. He then calls up the Add Leave To Your Calendar form(IPM.Appointment.LeaveToCalendar) from the Custom Action menu on the Leave Request. When he saves and closes the Add Leave To Your Calendar form, it saves in the Inbox not his Calendar.
Like I said the Add Leave To Your Calendar from works fine if opened diredtly from the OFL or anywhere else. It's just when it is opened from the Leave Request in the Inbox that it saves back to the Inbox.
Make sense?
http://www.outlookcode.com/threads.aspx?forumid=3&messageid=33968
Tue, 14 May 2013 18:27:30 GMTWhere to find strong commercial Outlook developers???Sorry for hijacking what appears to be a really strong portal for information on developing Outlook solutions.
I am looking to find strong commercial Outlook developers for a client of mine in the Gulf. It appears that in the UK there is a lack of people packaging themselves as an "Outlook Developer".
Can any of you offer me some advice as to what else they may be called? http://www.outlookcode.com/threads.aspx?forumid=2&messageid=33962
Tue, 14 May 2013 13:30:21 GMTcount the number of emails in a folder for particular date (receivedtime)to count the number of emails in a folder, the following works great:
objFolderpublicInbox.Items.Count
is there a way to add the condition of only counting for a certain date (let's say today)...? i.e., without using a loop
???
thank you.
http://www.outlookcode.com/threads.aspx?forumid=2&messageid=33951
Tue, 14 May 2013 02:21:34 GMT