We have a project where we are using the Send2fax.com gateway to send
faxes from our web site.
Send2Fax does not word wrap emails, so I have to do that manually. This
is my "quick and dirty" code:
Function WrapLine(ByVal txt, ByVal where)
Dim temp
Dim l
words = Split(txt, " ")
l = 0
For x = 0 to Ubound(words)
If l < where Then
temp = temp & words(x) & " "
l = l + Len(words(x)) + 1
ElseIf l = where Then
temp = temp & words(x) & vbCrLf
l = 0
Else
temp = temp & vbCrLf & words(x) & " "
l = Len(words(x)) + 1
End If
Next
WrapLine = temp
End Function
Function WordWrap(ByVal txt)
Dim tmp
lines = Split(txt, vbCrLf)
u = Ubound(lines)
For x = 0 to u
lines(x) = WrapLine(lines(x), 40)
tmp = tmp & lines(x) & vbCrLf
Next
WordWrap = Left(tmp, Len(tmp) - 2)
End Function
Enjoy!
--Dave