VBA Function for Outlook98?

[jisoo22]

Does anyone know if there's a substitute for the "Split()" function in Outlook 98? I finished up writing a macro in Outlook 2000 and lo and behold, it doesn't work in 98. Sucks to be me.

Thanks!
Glen

 

[jisoo22]

Ok, I think I have something figured out. But it doesn't seem to be working. Here's the premise behind it: a macro takes information from an Excel sheet, sticks it into an Outlook email and ships it off. Then, another macro opens up Outlook, takes the info off the email and sticks it back into the same Excel sheet. Unfortunately my way doesn't seem to work. Can anyone tell me what's wrong with this bit of code?

Sub Item_Open()

Set myOlApp = CreateObject("Outlook.Application&quot
Set myNamespace = myOlApp.GetNamespace("MAPI&quot
Set myFolder = myNamespace.GetDefaultFolder(6)
myFolder.Display
Set myItem = myFolder.Items(1)
myItem.Display

x = myItem.Body
For Each x In myFolder.Items
a = InStr(x, "Claim Type: &quot
claimtypestr = Mid(x, a + 12, b)
Application.ActiveSheet.Range("B2&quot.Value = claimtypestr
b = InStr(x, "Dealer #: &quot

Next
End Sub
[/i}

Thanks

 

[ratman]

I may be able to help.
I have written only 1 VBA/Outlook macro and it works on our NT4 network.
It takes the text from an listbox on our intranet and opens Outlook and sends it to a recipient.
Has any of your tries worked as in has it ever sent and just not received or or or or ....
let me know
drat@mediaone.net