Recent content by petermeachem

Ah ha! Progress Dim OA As Outlook.Application Dim NS As Outlook.NameSpace Dim MF As Outlook.MAPIFolder Dim MI As Variant 'Outlook.MailItem Set OA = New Outlook.Application Set NS = OA.GetNamespace("MAPI") Set MF = NS.Folders("Mailbox - Applications").Folders("Inbox") For Each MI In...

sadly not. If MI.Class = olMail Then, olMail isn't set to anything. if i take out that line and it's endif, then the first record gets read. it trips on A = MI.SenderName saying Object doesn't support this property or method

I don't suppose anyone has any idea why this doesn't work? I'm stumped

yes. it is effectively a structure, supposed to be. if you don't tell it what sort of structure it is how does it know what the members are

then it would have no idea what olMail.SenderName meant

Dim olApp As Outlook.Application Dim olNamespace As Outlook.Namespace Dim olFolder As Outlook.MAPIFolder Dim olMail As Outlook.MailItem

in your first example if changed the For line to 'For Each olMail In olFolder.Items' This does the same thing, it stops at the 5th email which is the first one not from Applications@. if i move it on to the next email it will work until i get to the next one not from Applications@. Problem is...

You don't need single quotes round True

Set olApp = New Outlook.Application Set olNamespace = olApp.GetNamespace("MAPI") Set olFolder = olNamespace.Folders("Mailbox - Applications").Folders("Inbox") Set olMail = olFolder.Items.GetFirst jNoEmails = olFolder.Items.Count For J = 1 To jNoEmails Set olMail...

A reboot seems to have fixed it. It was rebooted after the vm was setup, seemed to want another one. I swapped back to the old server and guess what, the Monitor doesn't work on that either. We only use this system for the odd look up of stuff that didn't get imported to our new accounts system...

I have the tables linked to an Access programme, I can see the data fine. But we cannot run the executable, error 49153. It's a very old copy of Accpac we use for some historical lookups, version 5. something. If I remote onto the server and look at the odbc's, i get 'An error occurred while...

We are autoresponding to emails to a specific mailbox with a standard message. what i've been asked to do is to reply so that they (the senders) know which email we are responding to, maybe by including their original text. It has to be server side. I can't figure out how to do this. Does anyone...

The detail height should be 99mm. However if i set it to this i get an unwanted 1cm border at the top and the 3rd doesn't fit on the page. The only way I can get 3 on a page is to set the detail height to 95mm or so. Madawc, i don't really understand what you mean. The page and report headers...

Well no, the user went back to the old paper and i restored the old report with the smaller detail height. Worked fine. I don't understand where the 1cm top margin has appeared from, that's what the problem is. Can't abide Crystal, maybe it has noticed and decided to be awkward

The report just has a detail section, no header or footer and 0 margins. It shows the data for one cheque which prints on a preprinted A4 page with 3 cheques one above the other. The old cheque paper which worked fine, had 3 cheques and a 5cm tear off strip on the bottom. The new cheque layout...