Splitting data into columns

Hi There

I am using the code below to import data from an outlook email into a
spreadsheet. My problem is that all the data gets put into the first column
and each line is seperated by a square box.

Is it possible to either get each line put into a different column or to
write a further macro to split the data up?

Any help would be greatfully appreciated.

Thanks in advance

Jamie

Macro:

Sub GetFromInbox()

Dim olApp As Outlook.Application
Dim olNs As NameSpace
Dim Fldr As MAPIFolder
Dim olMail As Variant
Dim i As Integer

Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
i = 1

For Each olMail In Fldr.Items
If InStr(olMail.Subject, "requestxz") > 0 Then

ActiveSheet.Cells(i, 1).Value = olMail.body
i = i + 1
End If
Next olMail

Set Fldr = Nothing
Set olNs = Nothing
Set olApp = Nothing

End Sub

didn't test it, but did you try reversing the cells(i,1) to cells(1,i), or
whatever row number you want to start in?


--


Gary


"Jamie" <[email protected]> wrote in message
news:[email protected]...
> Hi There
>
> I am using the code below to import data from an outlook email into a
> spreadsheet. My problem is that all the data gets put into the first
> column
> and each line is seperated by a square box.
>
> Is it possible to either get each line put into a different column or to
> write a further macro to split the data up?
>
> Any help would be greatfully appreciated.
>
> Thanks in advance
>
> Jamie
>
> Macro:
>
> Sub GetFromInbox()
>
> Dim olApp As Outlook.Application
> Dim olNs As NameSpace
> Dim Fldr As MAPIFolder
> Dim olMail As Variant
> Dim i As Integer
>
> Set olApp = New Outlook.Application
> Set olNs = olApp.GetNamespace("MAPI")
> Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
> i = 1
>
> For Each olMail In Fldr.Items
> If InStr(olMail.Subject, "requestxz") > 0 Then
>
> ActiveSheet.Cells(i, 1).Value = olMail.body
> i = i + 1
> End If
> Next olMail
>
> Set Fldr = Nothing
> Set olNs = Nothing
> Set olApp = Nothing
>
> End Sub
>
>

Cheers for the reply.

I just tried that but it made no difference.

Any other ideas??

"Gary Keramidas" wrote:

> didn't test it, but did you try reversing the cells(i,1) to cells(1,i), or
> whatever row number you want to start in?
>
>
> --
>
>
> Gary
>
>
> "Jamie" <[email protected]> wrote in message
> news:[email protected]...
> > Hi There
> >
> > I am using the code below to import data from an outlook email into a
> > spreadsheet. My problem is that all the data gets put into the first
> > column
> > and each line is seperated by a square box.
> >
> > Is it possible to either get each line put into a different column or to
> > write a further macro to split the data up?
> >
> > Any help would be greatfully appreciated.
> >
> > Thanks in advance
> >
> > Jamie
> >
> > Macro:
> >
> > Sub GetFromInbox()
> >
> > Dim olApp As Outlook.Application
> > Dim olNs As NameSpace
> > Dim Fldr As MAPIFolder
> > Dim olMail As Variant
> > Dim i As Integer
> >
> > Set olApp = New Outlook.Application
> > Set olNs = olApp.GetNamespace("MAPI")
> > Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
> > i = 1
> >
> > For Each olMail In Fldr.Items
> > If InStr(olMail.Subject, "requestxz") > 0 Then
> >
> > ActiveSheet.Cells(i, 1).Value = olMail.body
> > i = i + 1
> > End If
> > Next olMail
> >
> > Set Fldr = Nothing
> > Set olNs = Nothing
> > Set olApp = Nothing
> >
> > End Sub
> >
> >
>
>
>