The code I'm using is:
Sub Send_Email()
Dim flag As Boolean
Dim count As Integer
Dim last_row As Integer
Dim length As Integer
Dim total_length As Long
Dim value As Integer
Dim row_height As Double
Dim addresses As Variant
Dim this_address As String
Dim h As Object
Dim endcell As Object
Dim startcell As Object
'
' Initialise Values
'
addresses = "mailto:"
count = 0
flag = False
'
' Count number of names
'
Cells(Row_num_start_of_name_list, 1).Activate
While Not (ActiveCell.value = "")
count = count + 1
ActiveCell.Offset(1, 0).Activate
Wend
Set startcell = Cells(Row_num_start_of_name_list, 1)
Set endcell = Cells(Row_num_start_of_name_list +
count - 1, 1)
Range(startcell, endcell).Select
For Each h In Selection.Hyperlinks
this_address = h.address
row_height = h.Parent.RowHeight
If (row_height 0) Then
length = Len(this_address)
value = length - 7
If (value < 0) Then
value = 0
End If
addresses = addresses + Right(this_address,
value) + "; "
flag = True
End If
Next
If flag Then
ActiveWorkbook.FollowHyperlink address:=addresses
End If
End Sub
Basically I'm picking up a list of hyperlinks I've defined
in a worksheet and which I can filter (Hence the code
checking the row height). I build up 'addresses' to
contain one large mailing list and then open the new e-
mail message using the FollowHyperlink method.
Hope it's not a limitation of OL98!
Cheers
Carl
-----Original Message-----
Carl
I don't have OL98, but in OL2000, it worked fine with 300
characters. Post
how you are using the FollowHyperlink method and I'll see
if I can reproduce
it.
--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.
"Carl Woodall"
wrote in message
...
Hi
I'm trying to send e-mails from Excel 97 via VB but am
having problems as the address text is truncated at 260
characters. The code I'm using is:
ActiveWorkbook.FollowHyperlink address:=addresses
whe addersses is defined as a variant type.
Does anybody know of a work around or is this just a
limit
of the function? The mail client is Outlook 98.
Cheers
Carl Woodall
.