Save Current email in Directory.

Hi all, Brand brand new to VBA coding. Fully fledgling newbee in the ranks! Hoping for a little help. My final aim is to have a button and a drop-down box in a custom toolbar. The dropdown box will offer a number of local directories and the button will execute a save script which saves the email (with any attachments) in the directory currently selected in the drop-down box. This will ideally work with the email open in the preview pane as opposed to having to double click each message before saving it. I'm sure this is a big job so I'l attack it one section at a time. I

Send All emails in Outbox and Quit using VBA

Hi, I have MS Access creating emails objects in Outlook using a macro. I want to send them all and close outlook after. 1-Open Outlook 2-Send all emails in the outbox folder 3-Close Outlook How can I achieve it using VBA? Using command buttons does not seem to work since my Outlook is in French, I'm using Outlook 2003 SP3. Thank You Stephane

you can delete the email message just sent?

I would delete the message after sending. What is the code to do so? Thanks

outlook ComAddin deactivated

Hello, I have developped a ComAddin for olk2003 in VB6. the ComAddin is activated each time Outlook starts. For many days, the comaddin works fine, but sometimes for a unknown reason, it is deactivated (found in outlook 'deactivated component' ). I have handled all errors inside my Comaddin , so i cannot understand why i could be deactivated. Is there a solution to keep the comaddin always activated ? Thanks in advance.

can you do this with Outlook?

Is there a way to add an email address to Outlook so that it NEVER sends a message to that email address? So if someone says "unsubscribe" can I "blacklist" them and never send to them again. It sound simple but I can see a good way to do it... Thanks Dan

how to save incoming mail in TRUE csv format

I have a script in Outlook 2007 that automatically saves incoming emails to a folder as a txt. Simply changing my code to olCSV does not comma separate the values. How can i convert this to a csv format? Is it possible? Obviously I'm a real newbie. Thanks in Advance or all/any help! here's my code: Sub saveemail(myItem As Outlook.MailItem) myItem.SaveAs "c:\mail\" & myItem.Subject & ".txt", olTXT End Sub Matt

VBA window keeps opening

Outlook 2007 I created quite a few macros that will open some e-mail templates. They are in a menu on the Menu bar. The problem is when I leave my computer and come back, the VBA window is open. It is simple enough to close it, but why does it keep popping open? Any suggestions to stop it from opening would be appreciated. Thanks, -- Amy

item_send event

Hi, There is a little problem with Item_send event in OL2003. Supose you have this code in your vba project : Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) msgbox "Hello" end sub You are expected to see "ok" every time you send a email. This code runs fine when you compose a new mail directly with outlook. Now, send a file via "Send to -> recipient" : open explorer file. With the mouse, right-clic on a file and select : "Send to -> recipient" A new message appears with you file attached. But If you send it, you do not see "Hello" : Applicat

userform combobox

Hi, using Outlook 2007. I have a simple userform that only has a combobox. The problem is that I cannot enter a value and cannot select an item from the list. Enable=true Locked=false I don't know if this is a red herring... the multi-column combobox is loaded using data from sql2005 Do Until rsClient.EOF cboClientList.AddItem For columnIndex = 0 To fieldCount cboClientList.List(rowIndex, columnIndex) = rsClient.Fields(columnIndex) & "" Next columnIndex rsClient.MoveNext rowIndex = rowIndex + 1 Loop The com

Contact Email address format

Hi! I'm trying to programmatically access the my contacts from outlook, which I did using the following code: var outlookApplication = new ApplicationClass(); NameSpace mapiNamespace = outlookApplication.GetNamespace("MAPI"); MAPIFolder searchFolder = mapiNamespace.GetDefaultFolder(OlDefaultFolders.olFolderContacts); The problem is that any email address (Email1Address) retrieved which is connected to the same local Microsoft exchange server is retrieved in the following format: /o=First Organization/ou=Exchange Administrative Group (FYDIBHDO23SPDLT)/cn=Recipients/cn

Appointments 'collapsing'

Hello! I hope someone can help me understand how Outlook 'collapses' two appointments into one. Below is the scenario 1. I send an email from GMail with an embedded meeting invitation. 2. Outlook receives 2 messages (that's what I see in the Inbox). Don't know why two - whether that's how GMail sends it or the way Outlook interprets the invitation. 3. Calendar gets a 'shadow' item corresponding to the meeting 4. I accept both items in the inbox. 5. Calendar's 'shadow' item becomes normal. In effect what happened, the two items from the Inbox collapsed into single item in the

Save incoming Email as .html file with name of subject line

Hello all! I am using the below code to save all incoming emails as an XML file. The problem is that a new incoming email overwrites the previous one. What I'd like to do is name the XML file as the subject line of the incoming email. Would someone please help me? Sub saveemail(myItem As Outlook.MailItem) myItem.SaveAs "c:\mail\test.XML", olXML End Sub Matt

add a date without holidays

Hi friends, I have a problem, in a macro I need to calculate a date adding working days only. This add not include saturday / sundays and holidays. For example: 21/5 + 6 days = 31/5 How i can to do ? Thanks in advance and sorry by my english, Christian

Mail is received in Plain text even formatted and sent in HTML

Hi, MS Outlook is automated to send out an email in HTML but when the email is received from MS Outlook it is in plain text. The email in Sent items is in HTML format. If an email is created from MS Outlook itself(not programmetically) in HTML and sent, when received it is in HTML format. Following is the configuration of this computer - Windows 2003 enterprise edition x64 - MS Outlook 2007 with excahnge server - Logged on to the server using a Cirtix session - Default email application of Windows is set to MS Outlook In a Windows 2003 standard edition x64, with MS Outlook 2

Move Sent Email to archival pst folder and mark as read - HOW TO

Hello, MS OUTLOOK 2003 on XP PRO Awhile ago I was looking for how to do this and it was irritating me that it was so hard to get a straight answer on how to pull this routine together. So I thought I'd post sample code here to let everyone now how to do this VERY simple thing. Note: Occassionally, this thing de-initializes and won't trigger. If that happens your email goes to your sent mail folder on the server side same as always. No biggie, just close and re-open outlook to re-initialize or manually run through the sub Application_Startup in the ThisOutlookSession obje

Forward Email to include Senders email address in the body

With the help of what I've found at this wonderful site I created the following code which works well. The only part I'm missing which I can't seem to figure out is how I can include the email address of the original sender the message. I want the ending result to be like this... Please whitelist the following "Email Address of original sender" Original email Here's my code. I'm just missing the "Email Address of original Sender" part. Sub Whitelist() On Error Resume Next Set ThisItem = Application.ActiveInspector.CurrentItem Set FwdItem = ThisItem

macro to include email signature

I have attached the following code to a button on the quick access bar in Outlook. It does all I want except that "body text" erases my default signature. Is there some additional code I could include that would complete the email with my default signature? The default signature uses various fonts sizes and colours. Thanks for any help. Sub inspector() Dim myOlApp As New Outlook.Application Dim myItem As Object Dim myAttachments As Outlook.Attachments Set myItem = myOlApp.ActiveInspector.currentitem Set myAttachments = myItem.Attachments myItem.Subject = "Status Report" myIte

ItemAdd event not functioning - not triggering.

Hello, MS OUTLOOK 2003 on XP PRO. What I'm trying to do: I want to take every email I send, move it to a PST folder, and mark as read using VBA since this isn't possible in a rule (specifically mark as read). My Problem: Through this forum and some other places, I think I have code that's at least close to doing this. The problem is, the darn thing never triggers. Please help me with this code. Thank you. All of what follows is the entirety of a class module. Dim myolApp As New Outlook.Application Public WithEvents myOlItems As Outlook.Items Public Sub Initialize_

Automatically save attatchment with a different extension

I'm using Outlook 2003 When an email comes in with a specific subject "Weekly: SalesAssoPerformance, Ottawa" it has 3 files attached. I would like to automatically save one of them "SAPerformance_1.1.html" to a specific folder and change the extension to .xls once the email arrives. Can this be done? -- Kristy Nolan

vba timing

Hi, On a daily basis I recieve emails which have spreadsheet attachments, these emails I want to move to another Outlook folder and save the attachment to a folder on my 'c:' disk drive. I have vba code to save the attachment and I created a rule for when the 'subject' line contains specific text to move it to the other Outlook folder and run a vba sub which calls another sub which does the actual work, see below(ps: I got this code from someplace on the web). I believe this code/process will work but I'm having one issue which is the rule says Apply this rule after the messa

Preview Pane freezes while application runs

I have written a VBA application that takes about 20-30 minutes to iterate through a series in nested for..next loops. In order to allow me to use Outlook while the app is running I have inserted a pause/doevents loop inside the innermost for..next loop as follows: AppNow = Timer Do While Timer < AppNow + 1 DoEvents Loop This yields to other events for one second, and does allow me to carry on using Outlook for other things. The only problem is that the preview pane "freezes" and will not refresh. Increaseing the pause time makes no differance. Any ideas on how to solv

send mail every days

Hello friends, Have a question about outlook 2007. I need to run a macro every days, this macro send a mail with information of a SQL. Have the macro created and run succesfull but how i can to do for run every days automatically ? is possible schedulle this macro ? Thanks in advnace and sorry by my english, Christian Wis.

Transmitting Outlook data to a web server

I am looking for a solution on how to publish data in Outlook to a web server. A custom web app will be written to access the data published to its server and and display it in some special way. I will either need to write custom VBA for Outlook that transmits the data to the web server or use some third-party tool that integrates into Outlook that will transmit the data for me. The data is sent in only one direction - from client to server. The data on the server is read- only. Whenever the user changes data in Outlook, either it gets sent to the server automatically (the preferred wa

VBA: how to set a category to all mail in a folder ?

Hi everyone, I need to set automatically a category to alll email in a IMAP folder. (and for every new incoming email in this folder) I've found this code in VBA but it give a category only to the selected email when the macro is launch. Sub essai() Dim MonApply As Outlook.Application Dim Expl As Explorer Dim myNameSpace As NameSpace Dim myFolder As MAPIFolder Dim myItems As Items Dim xi As Integer 'object instance Set MonApply = Outlook.Application 'Application Outlook 'Expl is current folder Set Expl = ActiveExplorer 'give you all datas

Code to Save Email as an .MSG to Directory when Emails Arrive

I am trying to save all emails that come into the inbox as an .MSG to a directory on the server. I saw the ability to utilize the SAVEAS method but have no idea how to implement that to work as emails arrive. Any code help would be greatly appreciated. Thanks in advance John