Visual Basic

Analize the body of the mail

14-Jan-06 13:54

You're not going to find much VB6 code on this site. However, I've found plenty of example after doing a Google search.
http://www.google.com/search?hl=en&q=vb6+crystal+reports[^]

Also, Microsoft no longer supports VB6. I recommend that you switch to VB.NET if you can. The Express edition is free.

Ekans14-Jan-06 9:05

14-Jan-06 9:05

Hi there,
i want to know if there is any way to analize the body of an received mail in vb6. This is of an add-in for outlook.
Thanks

Joshua Quick14-Jan-06 9:33

14-Jan-06 9:33

I've never done this before myself. However, I do know that Microsoft provides information on how to do this on MSDN. The below link seems to be a good starting point.
http://msdn.microsoft.com/office/understanding/outlook/default.aspx[^]

Also, I recommend that you switch to VB.NET. VB6 is already ancient history.

Ekans14-Jan-06 14:17

14-Jan-06 14:17

Well,the problem is that i don´t know how to catch the mail body.
What i want to do is to catch the mail body to search for an <tag> and then compare with the URL.
It´s a kind of anti-Phishing.
Thanks

Joshua Quick14-Jan-06 14:22

14-Jan-06 14:22

Is this helpful?

http://support.microsoft.com/default.aspx?scid=kb;en-us;313795[^]

Ekans14-Jan-06 14:36

14-Jan-06 14:36

Thanks,it help´s for a part of the problem. And how can i search the <tag> in the body of the mail and then compare with the URL?

Joshua Quick14-Jan-06 14:47

14-Jan-06 14:47

It looks like the e-mail's body is returned as a String. You can call IndexOf() to search for a substring. In this case the URL.
So, how about something like this?

Dim myUrl As String = "www.yahoo.com"
If (oMsg.Body.IndexOf(myUrl) >= 0) Then
   ' URL found in body.
Else
   ' URL not found in body.
End If

Ekans15-Jan-06 7:09

15-Jan-06 7:09

But in that case we put the URL Dim myUrl As String = "www.yahoo.com".
What i want is to catch the URL that is in the body of the mail and then compare with the <tag>

Joshua Quick15-Jan-06 8:37

15-Jan-06 8:37

Okay. That would be a more efficient way of handling it.
(I was hoping I could get away with something simple. Smile | :)

)

You should use Regular Expression to identify all of the URLs in the e-mail. Perhaps an expression like this.
^(((h|H?)(t|T?)(t|T?)(p|P?)(s|S?))\://)?(www.|[a-zA-Z0-9].)[a-zA-Z0-9\-\.]+\.[a-zA-Z]*$

Here's the article I took the above string from. It contains more details. There are plenty of other articles like this on this website.
http://www.codeproject.com/csharp/regex2.asp[^]

I hope this helps!

Ekans15-Jan-06 10:26

15-Jan-06 10:26

Thanks for your msg´s
I tried to use that expression like this:

Public Sub ProcessInbox()
Dim oOutlook As Outlook.Application
Dim oNs As Outlook.NameSpace
Dim oFldr As Outlook.MAPIFolder
Dim oAttachments As Outlook.Attachments
Dim oAttachment As Outlook.Attachment
Dim iMsgCount As Integer
Dim myUrl As String = (^(((h|H?)(t|T?)(t|T?)(p|P?)(s|S?))\://)?(www.|[a-zA-Z0-9].)[a-zA-Z0-9\-\.]+\.[a-zA-Z]*$)
Dim oMessage As Outlook.MailItem

Dim iCtr As Long, iAttachCnt As Long

Dim sFileNames As String
Dim aFileNames() As String

'get reference to inbox
Set oOutlook = New Outlook.Application
Set oNs = oOutlook.GetNamespace("MAPI")
Set oFldr = oNs.GetDefaultFolder(olFolderInbox)
Debug.Print "Total Items: "; oFldr.Items.Count
Debug.Print "Total Unread items = " & oFldr.UnReadItemCount

For Each oMessage In oFldr.Items

With oMessage
'basic info about message
Debug.Print .To
Debug.Print .CC
Debug.Print .Subject
Debug.Print .Body
If oMessage.Body.IndexOf(myUrl >= 0) Then
MsgBox "URL encontrado="
' URL found in body.
Else
' URL not found in body
End If
If .UnRead Then
Debug.Print "Message has not been read"
Else
Debug.Print "Message has been read"
End If
iMsgCount = iMsgCount + 1
'save message as text file
.SaveAs "C:\message" & iMsgCount & ".txt", olTXT
.Body
'reference and save all attachments
With oMessage.Attachments
iAttachCnt = .Count
If iAttachCnt > 0 Then
For iCtr = 1 To iAttachCnt

.Item(iCtr).SaveAsFile "C:\" & .Item(iCtr).FileName

Next iCtr
End If
End With
End With
DoEvents

Next oMessage

Set oAttachment = Nothing
Set oAttachments = Nothing
Set oMessage = Nothing
Set oFldr = Nothing
Set oNs = Nothing
Set oOutlook = Nothing

End Sub

1st- I don´t know if i can use like this:
Dim myUrl As String = (^(((h|H?)(t|T?)(t|T?)(p|P?)(s|S?))\://)?(www.|[a-zA-Z0-9].)[a-zA-Z0-9\-\.]+\.[a-zA-Z]*$)
Probabli not because give´s me an error D'Oh! | :doh:

(Expected: end of statement)

Thank´s

Joshua Quick15-Jan-06 11:59

15-Jan-06 11:59

First, you need to put double quotes around that string I gave you. Smile | :)

Second, you can't use that string like that. You need to feed it into a System.Text.RegularExpressions.Regex object, which handles the string matching for you. Regular expressions is not a small topic, so I suggest you read some articles on it.

Try looking at this article. The code is in C#, but the code is small and can easily be converted to VB.NET. In particular, look at the part where it talks about extracting the URL's authority. You'll probably want that part to match against your tags.

http://www.cambiaresearch.com/cambia3/snippets/csharp/regex/uri_regex.aspx[^]

Ekans15-Jan-06 12:01

15-Jan-06 12:01

Thanks a lot!!! Big Grin | :-D

Ekans18-Jan-06 17:03

18-Jan-06 17:03

Hi there,
I still can´t search a string in the body of the mail. Frown | :(

Can you help me please??? Confused | :confused:

Imports System.Reflection

Module Module1

Sub Main()
' Create Outlook application.
Dim oApp As Outlook.Application = New Outlook.Application()

' Get Mapi NameSpace.
Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
oNS.Logon("YourValidProfile", Missing.Value, False, True) ' TODO:

' Get Messages collection of Inbox.
Dim oInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
Dim oItems As Outlook.Items = oInbox.Items
Console.WriteLine("Total : " & oItems.Count)

' Get unread e-mail messages.
oItems = oItems.Restrict("[Unread] = true")
Console.WriteLine("Total Unread : " & oItems.Count)

' Loop each unread message.
Dim oMsg As Outlook.MailItem
Dim i As Integer
Dim DTE As Object
Dim procura As String
DTE = Microsoft.VisualBasic.Interaction.CreateObject("VisualStudio.DTE.8.0")

For i = 1 To oItems.Count
oMsg = oItems.Item(i)

Console.WriteLine(i)
Console.WriteLine(oMsg.SenderName)
Console.WriteLine(oMsg.Subject)
Console.WriteLine(oMsg.ReceivedTime)
Console.WriteLine(oMsg.Body)
Console.WriteLine("---------------------------")

If Trim(oMsg.Body) = "seis" Then

MsgBox("msg found")
End If

Next

' Log off.
oNS.Logoff()

' Clean up.
oApp = Nothing
oNS = Nothing
oItems = Nothing
oMsg = Nothing
End Sub

End Module

remember that i want to find an URL (it´s still a string)
Thanks

Joshua Quick18-Jan-06 17:10

18-Jan-06 17:10

Like I said before, if you want to extract all URLs from the e-mail's body, then you should use Regular Expression (ie: Regex).

I'm a bit of a newbie when it comes to regex. I think you should post a new thread in this forum asking how to extract URLs from a String via Regular Expression.

Ekans18-Jan-06 17:15