Replies

The custom form has the body of an email form but then has a number of new text fields

I haven’t thought about the format. I think it is outlook rich text.

Does this help?

The custom form has the body of an email form but then has a number of new text fields

I haven’t thought about the format. I think it is outlook rich text.

Does this help?

Many thanks for your help!!

Paul

Many thanks for your help!!

Paul

Steve,
Thanks for that. Is there any way I can automate the entry of this function into a new column or do I need to go thru it by hand ? I have some familiarity with VBA but I am not having any success in extracting the URL from a cell. Any help ?

Paul

Steve,
Thanks for that. Is there any way I can automate the entry of this function into a new column or do I need to go thru it by hand ? I have some familiarity with VBA but I am not having any success in extracting the URL from a cell. Any help ?

Paul

Steve,
That would make sense !! I have both a B&W and a colour printer available so will check it out.
Thanks to everyone!!
Paul

I have a black & white printer installed. I was able to preview in colour until I changed it to print B&W but now it won’t go back to previewing in colour when I deselect Print B&W

Sarah,
I have just been faced with the same problem from a colleague. In the end I wrote a VBA routine to promt for a directory path and then sequentially work through the selected messages, copying the attachments using a filename created from the sender’s name, date/time sent and the attachment filename. This will work on any folder so long as you select the messages first.
Here is the code if it is of any use:
Sub attachment_save()
On Error GoTo Problem
Dim i, j As Integer
Dim oSelectedItems As Outlook.Selection
Dim oMessageItem As Object
Dim sReport, sFilePath As String
Set oSelectedItems = ActiveExplorer.Selection

j = 0 ‘ This is the counter for the number of attachments procesed

If oSelectedItems.Count = 0 Then
MsgBox “No Move forms within the view are selected!”, vbCritical, _
“Attachment Stripper”
Exit Sub
End If

sFilePath = InputBox$(“Enter the directory path. This will be used for ALL the attachments” & _
” in the message(s) you have selected.”, “Attachment Stripper”)
If sFilePath = “” Then
MsgBox prompt:=”No directory path has been entered”, Buttons:=vbExclamation
Exit Sub
End If
For Each oMessageItem In oSelectedItems
For i = 1 To oMessageItem.Attachments.Count
oMessageItem.Attachments.Item(i).SaveAsFile sFilePath & “” & _
oMessageItem.SenderName & ” ” & _
FormatDateTime(oMessageItem.ReceivedTime, vbLongDate) & ” ” & _
Hour(oMessageItem.ReceivedTime) & “-” & _
Minute(oMessageItem.ReceivedTime) & ” ” & _
oMessageItem.Attachments.Item(i).FileName
j = j + 1
Beep
Next
Next

If i = 1 Then
sReport = oSelectedItems.Count & ” message containing ” & j & _
” attachments have been processed.”
End If
If i > 1 Then
sReport = oSelectedItems.Count & ” messages containing ” & j & _
” attachments have been processed.”
End If

MsgBox sReport, , “Report”
GoTo GracefulEnd

Problem:
MsgBox prompt:=”There has been a problem.” & vbCrL & _
“Please check the target directory exists and try again.”, Buttons:=vbExclamation

GracefulEnd:
End Sub

Regards,

Paul

Brent,
No I haven’t had chance to look through the details yet. I’m not really very well versed with such scripting so will have book some time with our network consultant to go through it.
I was hoping for an answer along the lines of “here is the form conversion tool, it works like this…”! I knwo there is a tool for Exch 5.5 but apparently not one fr Exch 2000. Unless anyone knows any differently ?

Paul

It occurs on any PC trying to access the folder so I think it is a case of starting over again and rebuilding the folder. Many thanks for your help – especially as I have to give a live demonstration to the Vice Chancellor next week !!
Paul

Hans!! It is an honour to be in the presence of you wonderful Longers!!! Thanks you very much for the answer and even more for taking the time to explain.
Thanks to all.

Paul

Hans,
Works a treat!! Many thanks. Could you give me some hints about HOW it works ?

Paul

Andrew,
Thanks for the prompt reply. May be I was being to restructive in my original request!! What are the options with the extra column(s) ?

Paul

Michelle,
Annual leave is the same as working a standard day. On the timesheet I posted, I use the ‘Adjustments’ box to add the days that I have annual leave. I then add a note on each day that I have annual leave to make it clear where the adjustments come from. There are a few logical functions that convert any negative time back to normal time and then change the flag to hours in debt. This would not be necessary if the timesheet used the 1904 date system.
Anything else ?

Paul