[Dan[_15_]]

Hi,

I have the u/m code that send some data to OUTLOOK, it
works fine on my computer, but the other people in my
office are unable to get it to work. We are all running
the same equipement. I understand that there is a limit of
number charaters that can be sent.

The error message the others get (that I don't receive) is
as follows:

"Could not preform this operation because the default mail
client is not properly installed" Once you press OK it
opens OUTLOOK, creates part of the message and then goes
jibb-er-iss, simular to when you try and send too many
charaters.

I have try re-installing outlook on all machines, but this
does not make any difference. I find it strange that it
works on my machine, and noby elses???? I have attached
part of the code in the hope someone can see my mistake.

Many tahnsk for your assistance.

[[[[[ CODE ]]]]

Recipient = Selection.Offset(0, 1)
GoTo start

'======

start:

Subj = "ESTIMATE PORT DISBURSEMENTS"

Msg = Msg & "%0A" & "ITEM"
Msg = Msg & "%0B" & "----"
Msg = Msg & "%0B" & "MARINE NAV. LEVY" & " " &
UserForm3.Label12
Msg = Msg & "%0B" & "OIL POL. LEVY" & " " &
UserForm3.Label16
Msg = Msg & "%0B" & "CONS. DUES" & " " &
UserForm3.Label14
If UserForm3.Label20 0 Then Msg = Msg & "%0B"
& "PILOTAGE" & " " & UserForm3.Label20
If UserForm3.Label24 0 Then Msg = Msg & "%0B" & "TOWAGE"
& " " & UserForm3.Label24
If UserForm3.Label28 0 Then Msg = Msg & "%0B"
& "LINESMEN" & " " & UserForm3.Label28
If UserForm3.Label32 0 Then Msg = Msg & "%0B" & "LINES
LAUNCH" & " " & UserForm3.Label32
Msg = Msg & "%0B" & "BERTHAGE" & " " & UserForm3.Label54
If UserForm3.Label36 0 Then Msg = Msg & "%0B"
& "PRATIQUE" & " " & UserForm3.Label36
If UserForm3.Label37 0 Then Msg = Msg & "%0B" & "REFUSE
REMOVAL" & " " & UserForm3.Label37
If UserForm3.Label42 0 Then Msg = Msg & "%0B"
& "SECURITY" & " " & UserForm3.Label42
If UserForm3.Label46 0 Then Msg = Msg & "%0B" & "VRP"
& " " & UserForm3.Label46
If UserForm3.Label50 0 Then Msg = Msg & "%0B"
& "SURVEYS" & " " & UserForm3.Label50
If UserForm3.Label58 0 Then Msg = Msg & "%0B" & "PORT
SUNDRIES" & " " & UserForm3.Label58
If UserForm3.Label62 0 Then Msg = Msg & "%0B" & "SHIP
SUNDRIES" & " " & UserForm3.Label62
If UserForm3.Label66 0 Then Msg = Msg & "%0B" & "AGENCY
FEE" & " " & UserForm3.Label66
If UserForm3.Label70 0 Then Msg = Msg & "%0B" & "AGENCY
SUND." & " " & UserForm3.Label70
If UserForm3.Label78 0 Then Msg = Msg & "%0B" & "OTHER"
& " " & UserForm3.Label78
Msg = Msg & "%0B" & "====="
Msg = Msg & "%0B" & "TOTAL (AUSD)" & " " &
UserForm3.Label74
Msg = Msg & "%0B" & "TOTAL GST (AUSD)" & " " &
UserForm3.Label76

Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%
20")

HLink = "mailto:" & Recipient & "?"

HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink (HLink)