Outlook 2003 Emails Missing Full Header
I have a question,
I'm using the Microsoft CDO 1.21 library to extract the full headers from emails in my Outlook and I'm having problems. My code (very much helped out from awesome examples on this board) will grab the emails and extract the headers, but... for some unearthly reason it seems that Outlook doesn't keep headers for all emails Most are fine but other emails have no header what-so-ever. Verified by right clicking on the email in Outlook and selecting Options, there is no full header displayed.
Does anyone know how to get the full header from every single email in Outlook? Also, sometimes the headers don't properly include it's attachments, what gives?
(I've also checked other people's Outlook emails here at work and it's a common occurance)
Thanks!
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Extracting Data From Outlook 2003 Emails Into DB
I have a couple hundred text emails stored in my Outlook 2003 Inbox, with each one containing information in the body like this:
Name: Fred Smith
Email: fredsmith@abc.com
Zip Code: 90272
Does anybody have any advice on how / the steps I need to take in order to get these three fields from each email into an Excel spreadsheet? (And then ultimately a MySQL database.)
I'm guessing I first need to programmatically extract the data from each email - which can only be done with visual basic, or not?
Any assistance would be much appreciated.
Outlook 2003 Add-in For Sorting Emails Triggering
I have created VBA macro that is sorting incoming emails using run script rule.
Now I want to create add-in from this macro I am going to use VB studio 6.
Unfortunately I do not know how this add-in could be triggered?
----
On top of that I do not know how do I pass MailItem to Add-in?
Is this the way to do this:
Code:Private Sub IDTExtensibility2_OnConnection(demail As MailItem)
‘do staff with demail item
End sub
Can anyone help?
Outlook 2003 Add-in For Sorting Emails Triggering
I have created VBA macro that is sorting incoming emails using run script rule.
Now I want to create add-in from this macro I am going to use VB studio 6.
Unfortunately I do not know how this add-in could be triggered?
----
On top of that I do not know how do I pass MailItem to Add-in?
Is this the way to do this:
Code:Private Sub IDTExtensibility2_OnConnection(demail As MailItem)
‘do staff with demail item
End sub
Can anyone help?
Outlook 2003 Are There New Emails Filed In Public Folder?
I need macro which will check if there are any new emails in public folder.
I have created macro that will run other one every 3 hours but now I need one that will check for new emails.
Can anyone help?
Thanks
Have nice day
Berduchwal
www.berduchwal.pl
Need Outlook 2003 Addon: Sort Emails In Special Folders?
Hi!
At first I am working with Outlook 2003 and an Exchange 2003 Server.
The Exchange server has a 32 K rule limitation for every user.
For this reason I need an Outlook 2003 addon to sort all incoming mails in special folders.
Is something like this anywhere available?
Regards,
Gicio
Getting Header Data From Emails???
Hello All,
I need to be able to read the 'To' field from the header data, see my last post for background. And I have absolutely no idea how to go about doing that. I've had a look on the web, but can't come up with anything useful, just get a load of anti-spam type links.
Any help on reading in Headers is much appreciated.
thanks
Noogle
Edited by - original_noogle on 11/29/2004 3:30:56 AM
Cannot Log Into Exchange 2003 In Program, But Outlook 2003 Works Ok For That Account
I have an error when trying to log into outlook accounts in my vb6 program. I do not have a problem logging into these same accounts using outlook 2003. I have googled and found most of the solutions refer to wsock32.dll is missing. I have a wsock32.dll file. And that also would not explain why I can log in to the accounts on our exchange server using outlook 2003.
Anyways, here is my code: (it is still rough, but I just want to get past this and I will clean it up later for all you experts...lol) I may have pinpointed it to the IPM.Appointment error. I have checked my books and that looks correct though.
Code:
Dim objSession As MAPI.Session
Dim objFolder As MAPI.Folder
Dim objMsgs As MAPI.Messages
Dim objMsg As MAPI.AppointmentItem
Dim objField As MAPI.Fields
Dim mar102007 As String
Dim mar112007 As String
Dim mar122007 As String
Dim nov32007 As String
Dim nov42007 As String
Dim nov52007 As String
Dim i As Long
Dim numChecked As Long
Dim temp As String
Dim Count As Long
Dim Subject As String
Dim location As String
Dim startDate As Date
Dim endDate As Date
Dim notes As String
mar102007 = "03/10/2007"
mar112007 = "03/11/2007"
mar122007 = "03/12/2007"
nov32007 = "11/03/2007"
nov42007 = "11/04/2007"
nov52007 = "11/05/2007"
On Error GoTo ErrorHandler
If Check4.Value <> 1 And Check5.Value <> 1 And Check6.Value <> 1 And Check7.Value <> 1 Then
MsgBox "You must check one of the check boxes of a year to the left to run this program"
Exit Sub
End If
Set objSession = New MAPI.Session
objSession.Logon 'must logon before you can use objSession
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderCalend ar)
Set objMsgs = objFolder.Messages
If Check4.Value = 1 Then
Count = Count + 1
MsgBox "here"
'it appears that this is need before you make the event to add to outlook
objMsg.Type = "IPM.Appointment" 'this is erroring
objMsg.ConversationIndex = objSession.CreateConversationIndex
Set objMsg = objMsgs.Add
'mar 10, 2007 10 pm to mar 11, 2007 6 am
startDate = DateAdd("h", 22, mar102007)
endDate = DateAdd("h", 6, mar112007)
objMsg.Subject = "Regular event on March 10, 2007 from 10 pm to March 11, 2007 at 6 am"
objMsg.Text = "Here is some text"
objMsg.StartTime = startDate
objMsg.EndTime = endDate
objMsg.location = "This is the location field"
objMsg.ReminderSet = True
'set reminder 15 minutes before startDate
objMsg.ReminderMinutesBeforeStart = 15
Set objFields = objMsg.Fields
objMsg.Update True, True
DoEvents
End If
If Check5.Value = 1 Then
Count = Count + 1
End If
If Check6.Value = 1 Then
Count = Count + 1
End If
If Check7.Value = 1 Then
Count = Count + 1
End If
Cleanup:
MsgBox "enter exitsub"
Set objFields = Nothing
Set objMsg = Nothing
Set objMsgs = Nothing
Set objFolder = Nothing
If Not objSession Is Nothing Then
objSession.Logoff
Set objSession = Nothing
End If
MsgBox "exit exit sub"
GoTo AtEnd
ErrorHandler:
MsgBox "Error Handler"
MsgBox "Error Occurred: " & Err.Description & " [" & Err.Number & "]", vbOKOnly, "DSTMaker - Error"
GoTo Cleanup
AtEnd:
MsgBox "Done"
End Sub
Thanks for the help in advance
Unread Emails In Outlook/Outlook Express
I am trying to write a app which displays various items of information about the computer. Ive got the simpler things done, now I'm trying to push myself further.
Ive searched on the internet for checking outlook for unread emails (hopefully like the login screen on WinXP does)
The only piece of code I have found hopefully will work, but it says that it requires:
Outlook - fair enough, installed it.
Outlook Object Library, & reference to it - where can I get that from if its not already ?
Code:
Dim oOutlook As Outlook.Application
Dim oNs As Outlook.NameSpace
Dim oFldr As Outlook.MAPIFolder
'
On Error GoTo Error
'
Set oOutlook = New Outlook.Application
Set oNs = oOutlook.GetNamespace("MAPI")
Set oFldr = oNs.GetDefaultFolder(olFolderInbox)
'
LblEmails.Caption = oFldr.UnReadItemCount
Exit Sub
'
Error:
Set oFldr = Nothing
Set oNs = Nothing
Set oOutlook = Nothing
The error is the first line - i assume that is because the "Outlook Object Library" is not installed?
Arggghhh - Porting Outlook 2003 Code To Outlook 2002 [*Unresolved*]
Every single reference it seems ive made in my code (Dim x as MAPIFolder or something) gets me an error, that im missing the outlook 11 library.
i coded my app with 11 installed, and now im trying to port it to office 2002. however, every line gives me this error
what do i do? how can i use the same code for both 2002 and 2003?
however, when i unreferenced the missing 11 and referenced 10 it kind of worked - but how could i create a dll that would work on both 10 and 11? what if its referenced both and its looking for 11, when its 10 that exists on the computer?
Plus, im getting errors like this when referencing the 10 dll and not 11..
MS Office Web Components 9.0 Missing In 2003?
Hi, I wrote an application that was working fine in Excel 2002. Now I'm trying to run it in 2003 and am getting a number of errors. In Tools--> References, the Microsoft Office Web Components 9.0 was showing as MISSING. So based on this thread, I unchecked the reference, closed the spreadsheet, and reopened it to reinclude the library. But the Microsoft Office Web Components 9.0 library didn't show as an option, only the Microsoft Office Web Components Wizards library. How can I make the previous functionality work?
thanks,
Rina
Saving Attachment As RTF Vs Outlook Save As... RTF - VB6 MAPI && Outlook 2003
The VB 6.0 code below illustrates how one would link to an Outlook folder and inspect each mail item for attachments; saving to a disk file, as an RTF, any attachment found.
The file saved by running this code is different from one saved within the Outlook client by opening the mail item, opening its attachment and selecting 'Save As…' on the 'File' drop-down and specifying 'Save as type: Rich Text Format (*.rtf)'.
Performing the 'Save as type: Rich Text Format (*.rtf)' gives the desired disk file needed.
How can one achieve this result programmatically?
I'm thanking anyone, in advance, on how this problem can be solved.
Code:Option Explicit
Const sTargetFileFolder = "Mailbox - TESTBOXInboxTest"
Const sTargetFile = "C:TestMailAttach.rtf"
Global oApp As Application
Global olNspace As Outlook.NameSpace
Global oCurrentFolder As Object
Global sToken As String
Global oTestFolder As Object
Global oItems As Object
Global oMessage As Object
Global oAttachment As Object
Public Sub LoginAndSaveAttachments()
On Error GoTo Err_LoginAndSaveAttachments
'Initialize Outlook as standalone
Set oApp = CreateObject("Outlook.Application")
Set olNspace = oApp.GetNamespace("MAPI")
olNspace.Logon , , False, False
Set oTestFolder = GetFolder(sTargetFileFolder) 'Set folder
Set oItems = oTestFolder.Items 'Set items collection
For Each oMessage In oItems 'Loop thru each mail item
If oMessage.Attachments.Count > 0 Then 'Check for attachments
For Each oAttachment In oMessage.Attachments 'Loop thru each attachment
If oAttachment.Type = 5 Then 'Check for TYPE ".msg"
oAttachment.SaveAsFile sTargetFile 'Save attachment - overwrite target.rtf
End If
Next
End If
Next
'=== release objects ===
Set oTestFolder = Nothing
Set oCurrentFolder = Nothing
Set oItems = Nothing
Set oMessage = Nothing
Set oApp = Nothing
Set olNspace = Nothing
Exit_LoginAndSaveAttachments:
Exit Sub
Err_LoginAndSaveAttachments:
Select Case Err.Number
Case 0 'Resume?
Case Else
MsgBox "Error " & Err.Number & vbCr & Err.Description
End Select
Resume Exit_LoginAndSaveAttachments
End Sub
Function GetFolder(FolderPath)
Dim CurrentFolder As String
On Error GoTo Err_GetFolder
Set oCurrentFolder = olNspace.Folders(GetField(FolderPath, ""))
FolderPath = sToken
While FolderPath <> ""
CurrentFolder = GetField(FolderPath, "")
Set oCurrentFolder = oCurrentFolder.Folders(CurrentFolder)
FolderPath = sToken
Wend
Set GetFolder = oCurrentFolder
Exit_GetFolder:
Exit Function
Err_GetFolder:
Select Case Err.Number
Case 0 'Resume?
Case Else
MsgBox "Error " & Err.Number & vbCr & Err.Description
End Select
Resume Exit_GetFolder
End Function
Function GetField(Path, Delimiter)
If InStr(Path, Delimiter) = 0 Then
GetField = Path
sToken = ""
Exit Function
End If
GetField = Left(Path, InStr(Path, Delimiter) - 1)
sToken = Right(Path, Len(Path) - InStr(Path, Delimiter) - Len(Delimiter) + 1)
End Function
Select Shape Object In Word 2003 Header Using VBA
Sorry if this sounds dumb, but I've learned VBA on my own and I can't figure out this problem.
I'm trying to select Shapes (not InLineShapes) that I've created in a header using another macro. For now, I know the names that I've assigned to the shapes, but once I figure out this problem, I'm going to be changing the code to insert unique (but similar) names based on the "current" section number.
In THIS macro, I want to delete any of these shapes that exist, based on their "similar" names. I can't just delete ALL shapes in the document, because there will be other shapes that shouldn't be touched which DON'T have similar names.
I can get it to count the shapes in the headers of the section (I had a message box in there to double-check), but I can't seem to get it to actually select the shape based on the index number and then return the assigned name of the selected shape to a variable so I can compare the name.
Can anyone help? Please feel free to correct any posting mistakes I've made. I'm a newbie here.
Thanks a TON!!!
P.S. I'm very tired right now, so sorry if anything sounds nonsensical. If so, ask and I'll try to clarify.
P.S. I don't know how to post code into those neat little boxes, so here it is. Hopefully this doesn't screw anything up:
--------------------------------------------------------
Dim iSectionCount As Integer
Dim nextSectCount As Integer
Dim i As Integer
Dim b As Integer
Dim foundone As Long
Dim SectShapes As Integer
iSectionCount = ActiveDocument.Sections.Count
For i = 1 To iSectionCount
Selection.GoTo wdGoToSection, Which:=(i)
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
'Count the shapes in the headers of the current section
SectShapes = ActiveDocument.Sections(i).Headers(wdHeaderFooterFirstPage).Shapes.Cou nt
If SectShapes > 0 Then
For b = 1 To SectShapes
'HERE'S MY CURRENT PROBLEM
'I GUESS IT'S NOT ACTUALLY SELECTING THE SHAPE
If Selection.ShapeRange(b).name Like "PowerPlusWatermarkDraft*" Then
foundone = Selection.ShapeRange(b).name
ActiveDocument.HeaderFooter.Shapes(foundone).Select
Selection.ShapeRange.Delete
End If
Next b
End If
'Go to next header. If same section, must have "first page headers different"
'(or "Odd" and "Even" page headers)
'Could therefore have 2 headers in only 1 section (like letters)
'ActiveWindow.ActivePane.View.NextHeaderFooter
nextSectCount = Selection.Information(wdActiveEndSectionNumber)
If nextSectCount = i Then
'THIS PART WILL END UP SAME AS ABOVE -- DOUBLE CHECKS IN CASE
'OF "FIRST PAGE HEADERS" OR "ODD-EVEN HEADERS"
SectShapes = ActiveDocument.Sections(i).Headers(wdHeaderFooterFirstPage).Shapes.Cou nt
MsgBox "Section " & i & " contains " & SectShapes & "Shapes"
If SectShapes > 0 Then
For b = 1 To SectShapes
If Selection.ShapeRange(b).name Like "PowerPlusWatermarkDraft*" Then
foundone = Selection.ShapeRange(b).name
Selection.HeaderFooter.Shapes(foundone).Select
Selection.ShapeRange.Delete
End If
Next b
End If
'NOT PART OF DUPLICATE SECTION
'reset nextSectCount for the next check it makes
nextSectCount = 0
End If
Next i
--------------------------------------------------------
(Help) Select All Previous Text To Last Header Style 3 Using Word 2003
My mum is a secretary and when writing reports (in Word 2003) for her (nasty) boss she has to wrap certain paragraphs in a rectangle with curved corners. This takes her quite a while to accomplish as the colour must be a certian type, width and, well, it just gets on her nerves!
Every paragraph begins with a header formated using 'header style 3'
I tried recording a macro to do this for her but can only get it to select an exact amount of lines.
My question is: what is the code to select all the previous text upto and including the last header style 3?
I've included all the code from my recorded macro and hope it helps!
Many thanks for looking + I hope i've put this in the correct forum & format.
CODESub disco2()
'
' disco2 Macro
' Macro recorded 8/28/2007 by Martin
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveUp Unit:=wdParagraph, Count:=5, Extend:=wdExtend
Selection.Cut
ActiveDocument.Shapes.AddShape(msoShapeRoundedRectangle, 90#, 72#, _
432#, 27#).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 2#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(204, 153, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 90.1
Selection.ShapeRange.Top = 72#
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = wdShapeLeft
Selection.ShapeRange.Top = CentimetersToPoints(0)
Selection.ShapeRange.LockAnchor = True
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = False
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.Collapse
Selection.ShapeRange.Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 2#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(204, 153, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 91.55
Selection.ShapeRange.Top = 73.4
Selection.ShapeRange.TextFrame.MarginLeft = 7.09
Selection.ShapeRange.TextFrame.MarginRight = 7.09
Selection.ShapeRange.TextFrame.MarginTop = 3.69
Selection.ShapeRange.TextFrame.MarginBottom = 3.69
Selection.PasteAndFormat (wdPasteDefault)
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = wdShapeLeft
Selection.ShapeRange.Top = CentimetersToPoints(0)
Selection.ShapeRange.LockAnchor = True
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = False
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom
Selection.ShapeRange.TextFrame.AutoSize = True
Selection.ShapeRange.TextFrame.WordWrap = False
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.Collapse
Selection.ShapeRange.Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 2#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(204, 153, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 91.55
Selection.ShapeRange.Top = 73.4
Selection.ShapeRange.TextFrame.MarginLeft = 7.09
Selection.ShapeRange.TextFrame.MarginRight = 7.09
Selection.ShapeRange.TextFrame.MarginTop = 3.69
Selection.ShapeRange.TextFrame.MarginBottom = 3.69
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = wdShapeLeft
Selection.ShapeRange.Top = CentimetersToPoints(0)
Selection.ShapeRange.LockAnchor = True
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = False
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom
Selection.ShapeRange.TextFrame.AutoSize = True
Selection.ShapeRange.TextFrame.WordWrap = True
Selection.ShapeRange(1).ConvertToFrame
End Sub
(Help) Select All Previous Text To Last Header Style 3 Using Word 2003
My mum is a secretary and when writing reports (in Word 2003) for her (nasty) boss she has to wrap certain paragraphs in a rectangle with curved corners. This takes her quite a while to accomplish as the colour must be a certian type, width and, well, it just gets on her nerves!
Every paragraph begins with a header formated using 'header style 3'
I tried recording a macro to do this for her but can only get it to select an exact amount of lines.
My question is: what is the code to select all the previous text upto and including the last header style 3?
I've included all the code from my recorded macro and hope it helps!
Many thanks for looking + I hope i've put this in the correct forum & format.
Code:
Sub disco2()
'
' disco2 Macro
' Macro recorded 8/28/2007 by Martin
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveUp Unit:=wdParagraph, Count:=5, Extend:=wdExtend
Selection.Cut
ActiveDocument.Shapes.AddShape(msoShapeRoundedRectangle, 90#, 72#, _
432#, 27#).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 2#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(204, 153, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 90.1
Selection.ShapeRange.Top = 72#
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = wdShapeLeft
Selection.ShapeRange.Top = CentimetersToPoints(0)
Selection.ShapeRange.LockAnchor = True
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = False
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.Collapse
Selection.ShapeRange.Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 2#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(204, 153, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 91.55
Selection.ShapeRange.Top = 73.4
Selection.ShapeRange.TextFrame.MarginLeft = 7.09
Selection.ShapeRange.TextFrame.MarginRight = 7.09
Selection.ShapeRange.TextFrame.MarginTop = 3.69
Selection.ShapeRange.TextFrame.MarginBottom = 3.69
Selection.PasteAndFormat (wdPasteDefault)
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = wdShapeLeft
Selection.ShapeRange.Top = CentimetersToPoints(0)
Selection.ShapeRange.LockAnchor = True
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = False
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom
Selection.ShapeRange.TextFrame.AutoSize = True
Selection.ShapeRange.TextFrame.WordWrap = False
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.Collapse
Selection.ShapeRange.Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 2#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(204, 153, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 91.55
Selection.ShapeRange.Top = 73.4
Selection.ShapeRange.TextFrame.MarginLeft = 7.09
Selection.ShapeRange.TextFrame.MarginRight = 7.09
Selection.ShapeRange.TextFrame.MarginTop = 3.69
Selection.ShapeRange.TextFrame.MarginBottom = 3.69
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = wdShapeLeft
Selection.ShapeRange.Top = CentimetersToPoints(0)
Selection.ShapeRange.LockAnchor = True
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = False
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom
Selection.ShapeRange.TextFrame.AutoSize = True
Selection.ShapeRange.TextFrame.WordWrap = True
Selection.ShapeRange(1).ConvertToFrame
End Sub
Missing Library Running Excel 98 Project On 2003
Not really a VB query, but a VBA one. I have this project which was developed using Excel from Office 98. When it is run on a machine with Office 2003, there are "Library missing" bugs everywhere (e.g., it chokes on the Chr function). It appears to me that the project itself is storing the reference to the C:Program FilesCommon FilesMicrosoft SharedVBAVBA6VBE6.DLL library and when it runs on the 2003 machine, it's looking for the older version of the DLL. This is because on the 2003 machine, I can create a new project where the Chr function works. Any ideas on how I can get the older 98 project running on the 2003 machine without having to create a new project and port all the data?
It Works In Outlook 2003 But I Need A Work Around For Outlook XP
I've got a piece of code which is working beautifully in Outlook 2003. But not all the computers here have Office 2003, some have Office XP.
I'm using the NewMailEx event which doesn't seem to exist in Outlook XP. Is there a way to have the same effect in Outlook XP?? I've looked at using the NewMail event but then I'm not sure how to work out which Mail item is the one i've just recieved.
Has anyone found a good work around??
How To Get Emails From Outlook
Hi,
I'm trying with this piece of VBA code I've found (below) on the net, to get all the emails from my Outlook Inbox (local) into an array and then (somehow) pass certain fields from them (i.e. From, Subject, Body, Etc)into Cells in Excel.
This thread is concerning the getting the emails part, which isn't working! I've tried this way:
Code:
Public Sub Get_Email()
'------------>Declarations
Dim olSession As Outlook.Application
Dim olFolder As Outlook.Folders
Dim olItem As Outlook.Items
Dim MyInboxArray()
'Set olMAPI = GetObject("", "Outlook.Application") --------------> I've tried this way and it doesn't work!
'Set myItem = olMAPI.GetDefaultFolder(olFolderInbox).Items ----------> As problem above
'Set olSession = GetObject("", "Outlook.Application") ----------> I'm aware that this is how to get the application level object to play with
'How do I Set the olFolder as Inbox and the olItem as the email items within??????????????
'-----------------> Here's where the array is set up and runs through the inbox
For Each olItem In olFolder
If olItem.Class = olMail Then
count = count + 1
ReDim Preserve MyInboxArray(2, count)
MyInboxArray(0, count) = objItem.Subject
MyInboxArray(1, count) = objItem.SenderName
MyInboxArray(2, count) = objItem.SentOn
End If
Next
If count > -1 Then
lstEmailItem.Column = MyInboxArray()
Else
lstEmailItem.Clear
End If
End Sub
and it doesn't work. I've also tried to do this way (below) but without much success.
Code:
Private Sub optInbox_Click()
Dim MyInboxArray()
count = -1
Dim objItem As Object
Dim objFolder As MAPIFolder
Dim objNS As NameSpace
Set objNS = Application.GetNamespace("MAPI")
' *********************** Load combobox with Inbox Emails ***************
Set objFolder = objNS.GetDefaultFolder(olFolderInbox)
For Each objItem In objFolder.Items
If objItem.Class = olMail Then
count = count + 1
ReDim Preserve MyInboxArray(2, count)
MyInboxArray(0, count) = objItem.Subject
MyInboxArray(1, count) = objItem.SenderName
MyInboxArray(2, count) = objItem.SentOn
End If
Next
If count > -1 Then
lstEmailItem.Column = MyInboxArray()
Else
lstEmailItem.Clear
End If
End Sub
This second method is the one I initially got off the net. I found that the "MyInboxArray" needed to be declared via "Dim" and then VBA says that the "Object doesn't support this property or method."
Can anyone please assist me with this one?
Thanks guys.
Emails In Outlook
ok.. this is the thing....
I have a program that has different emails in a database. The programa creates a email in outlook express and displays it for the user. The user can modify the email... I just need that after the user click on the send button on email I can know what is in the body of the message. Because when the user sends the message my object that I have in Visual Basic looses it. If I try to accces any property after the message has been sent... I get an error saying the message has been deleted.
So I have different ideas...
*Catch the even Item_send()... which a lot of people say it is not possible from Visual Basic. And read the body property and then send the message.
*when you create an mail microsoft outlook object it has a property called deleteaftersubmit... which I try to use setting to false but I still get the error.
so... any ideas... please?
Print Emails In Outlook
How would i write a program that will either
a. print out all the emails that i have highlighted in outlook (including all the attachments in there. <---preferably
OR
b. print out all the emails that have not yet been read? (inlcuding attach.)
OR
c. print out the first n emails in recent order (including attach.)
the attachments part is very important.
thx
Saving Emails From Outlook
Hi there
Unfortunately, I have no clue about VB. So I hope, that maybe my
thread could solve my problem. I also donŽt know if this is possible at all.
However, I receive emails (in .txt-format) into my Outlook 2002. With
the Outlook-Wizard I can file them in different folders concerning their
subject. Now IŽd like to save all the emails from one folder in a certain
folder on my C-drive. Is there a possibility to create a macro which
automatically saves all emails as a txt-file in a folder on my C-drive?
Thanks for ideas
Elli
Searching Through Outlook Emails
I want to add a macro to search through an outlook mail box, and public folders on an exchange server so that I can product a report on all the emails. I also want to pull some information form the email itself and also some email from the plain text files attached to the emails.
Can some one point me in the right direction on how to approach this project. I have some Word VBA & VB experience but I'm not familiar with the outlook object model.
Adding Emails To Outlook
Hi everyone!
I'm trying to help some one with this problem:
I know you can highlight multiple messages in Explorer then drag and drop them onto an Outlook folder to move the messages into Outlook.
I want to be able to do this programmatically (for multiple folders and messages). I have tried a multitude of avenues only to achieve unacceptable results.
I feel the only way to do this is to emulate the drag/drop action from Explorer to Outlook via VB/VBA code.
Does anyone have any ideas on how this might be done?
An thanks in advance!
Creating New Emails In Outlook Through VB
I need to be able to use VB to create a new email message in Outlook 2002. There is a file that my program will create on the fly and then I need to add that file as an attachment to the email. Finally, I need to save the email to the Drafts folder in Outlook.
I've been playing around with this code:
Private Sub Email_Click()
Dim olapp As New Outlook.Application
Dim olMail As Outlook.MailItem
Dim myAttachment As Outlook.Attachments
'Create a new mail object form the
'Outlook98 Application object
Set olMail = olapp.CreateItem(olMailItem)
Set myAttachment = olMail.Attachments
myAttachment.Add "C: ext.txt"
olMail.Subject = "Testing a send of a message"
olMail.Body = "Hello, this is the body"
olMail.Recipients.Add "user@domain.com"
olMail.Send
Set olMail = Nothing
Set olapp = Nothing
End Sub
but when I run it, I get an error "User defined type not defined."
Can someone point me in the right direction?
Parsing Emails In Outlook....
OK, first off, this is just an idea that I'd like to implement for my personal use, but I'm not sure about the best way to accomplish the task. Add on top of that the fact that I havent touched VB in several years....
I have an email that I get daily when the stock market closes... Basically, what I want to do is set up a rule in Outlook that will call something whenever that email shows up. Once the rule kicks in and calls the something (macro ?) I want it to parse that email and extract a string and append it into either a .txt file (if thats easiest) or into an excel spreadsheet (if thats not too difficult).
Any ideas on the best way to go about accomplishing that?
Thanks in advance for your reply!
Brad
Outlook Signature On Emails From VB6
Does anyone know how I can put the users signature onto thier emails from VB - I have managed to create an email with a document attached but don't know how to add the individual users Outlook signature
Reading Outlook Emails Through VB
Is it possible to read certain/all emails that are sent to your Outlook, through a VB program? If so how can this be done? Also can I withdraw certain info from emails, each email will have a certain line which I would like to grab from the emails. The line is: The Number of Registrants is: 50, what I want to do is just have my vb program grab the count which in my example is 50.
If you have any information that would help me out I would be very thankful.
Thanks to all that help.
Please provide code if possible.
How Do You Retrieve Emails From Outlook?
I am writing an application where I need to retrieve emails from Outlook mailboxes. I'm using the Outlook library but I'm not real familiar with it. Can someone post some code to show me how to retrieve email and put them in a listbox?
Thanks,
Jeff
How To Get Name And Emails From Outlook 2000?
Hi,
Does anyone knows how do I get names and emails from my Outlook Contact List/Address Book and load it into say, a combo box?
I know it's something to do with the Outlook.AddressLists but I can't declare it well.
Thanks for any help!!!
Filtering Emails In Outlook
************************
SubjectText = "Joke"
olFilter = "[Subject] = """ & SubjectText & """"
Set olMailMsgs = olInBox.Items
Set olMailMsg = olMailMsgs.Find(olFilter)
Do While olMailMsg Is Not Nothing
Debug.Print olMailMsg.Subject
Set olMailMg = olMailMsgs.FindNext
Loop
***************************
This will print the subject of each email in InBox that has the subject Joke. But I want to be able to find all emails with 'Joke' in the subject line (ie 'This is a good Joke' or 'Try these Jokes').
I guess I need to set SubjectText with some sort of wildcard character such as ...
SubjectText = "*Joke*"
But I cannot get this to work with Outlook's Items Find method.
Any suggestions?????? Thanks.
[This message has been edited by rnlockyer (edited 11-27-1999).]
[This message has been edited by rnlockyer (edited 11-27-1999).]
Filtering Emails In Outlook
************************
SubjectText = "Joke"
olFilter = "[Subject] = """ & SubjectText & """"
Set olMailMsgs = olInBox.Items
Set olMailMsg = olMailMsgs.Find(olFilter)
Do While olMailMsg Is Not Nothing
Debug.Print olMailMsg.Subject
Set olMailMg = olMailMsgs.FindNext
Loop
***************************
This will print the subject of each email in InBox that has the subject Joke. But I want to be able to find all emails with 'Joke' in the subject line (ie 'This is a good Joke' or 'Try these Jokes').
I guess I need to set SubjectText with some sort of wildcard character such as ...
SubjectText = "*Joke*"
But I cannot get this to work with Outlook's Items Find method.
Any suggestions?????? Thanks.
[This message has been edited by rnlockyer (edited 11-27-1999).]
[This message has been edited by rnlockyer (edited 11-27-1999).]
Sending Emails With Outlook
Ok good people I need some more help on my sending Email with attachments,
Im working with a XP system so you know..
It works thanks but now I need to know how to make it just send the email without haveing to click on the send button on the Email message that popsup... ?
its the Create Email form that shows when you create a new email to send to someone... you have to click on the Send button for it to be sented......
how do I keep from havening to click that button from vb source code... ?
I really dont even want to see the pop up part of it.... for it to just send the dang Email.. is all I want...
mike
mmetcalf@insightbb.com
Sending Multiple Emails From Outlook
I am trying to send multiple emails using a list in Excel - the problem is that it keeps on requesting my permission to send each one.
I am using the following code, maybe someone can tell me where i am going wrong:
Code:
Private Sub cmdMailSend_Click()
On Error GoTo ErrHnd
Dim olapp As Object
Dim oitem As Outlook.MailItem
Dim x As Long
Dim y As Long
Dim SubjectLine As String
Dim EAddress As String
Set olapp = CreateObject("Outlook.Application")
y = Range("A65536").End(xlUp).Row
SubjectLine = Range("B1").Value
For x = 1 To y
EAddress = Range("A1").Offset(x - 1, 0).Value
Set oitem = olapp.CreateItem(0)
With oitem
.Subject = SubjectLine
.to = EAddress
.Body = "This would be a pretty good macro eh?" & Chr(10) & " " & Chr(10) & _
Chr(10) & "if I can get the thing to work."
.send
End With
Next
Set olapp = Nothing
Set oitem = Nothing
Exit Sub
ErrHnd:
Debug.Print Err.Number & Err.Description
MsgBox "Could not send the email", vbCritical, "Nope!"
End Sub
Edit by Moderator: Please use the [vb][/vb] vb tags with your code
AutoArchive Emails Every 15 Minutes In Outlook
Hi All
I need to autoarchvie the mails in my sent items folder, in Outlook, every 15 minutes.
At present Outlook allows this every day.
I send automated reports via email each day . These reports send about 400 emails per day.
Due to my mailbox being size limited by the company that I work for, I need to autoarchive these emails for a day before I delete them.
Has someone already done the VB code for this?
I have not started yet as I would not like to recreate the wheel.
Thanks for your help.
Regards
Miles
Accessing Emails In Outlook 20002
I want to be able to create, write to, and read from a saved draft of an email in Outlook 2002.
I realize this may be a tough bit of code to write, so I'm looking to know what are some of the things I may have to do to pull this off?
Thanks.
Accessing Emails In Outlook Subfolders
I made a program to detect spam email but it's limited to only the default folder.
I'd like to make it be able to scan the messages in subfolders as well. Here is the code I am using to check the new (unread) messages in the defautl folder:
----------------------------
Set oOutlook = New Outlook.Application
Set oNs = oOutlook.GetNamespace("MAPI")
Set oFldr = oNs.GetDefaultFolder(olFolderInbox)
Dim UnreadItems As Object
Set UnreadItems = oFldr.Items.Restrict("[Unread] = true")
For Each Item In UnreadItems
-----------------------------
How can I make it check the emails of subfolders as well?
Thanks
Find And Save Emails From Outlook
Hi,
i'm looking to do the following :
- find all mails that contain a specific text in the subject.
- save those emails in a specific folder
and along the way maybe build up a list of all the mails
i found.
I don't think this is very hard. But can not seem to get it right.
Thanks
Getting Recieved Time From Outlook Emails
Does anyone know how I can use a vb app to extract the 'recieved time' from emails within outlook. Even if there isn't an API surely there's code to retrieve the data from the systems memory or some other method. I need to place the recieved times of my emails into an excel document automatically.
Thanks
SC
Extracting Some Information From Emails In Outlook
Hi all,
Hopefully someone is not so busy;
I have 400 unread emails sitting in a personal folder which contain both a 7 and 11 digit number. I need to extract the numbers into either an excel or text document (notepad would be fine). There will be no other 7 or 11 digit numbers in the emails.
I imagine the script would be fairly simple but have no experience with outlook.
Output needs to look something like
1234567, 12345678901
Any assistance greatly appreciated!
Moving Duplicate Emails In Outlook
I have an application that runs through all the emails in an Outlook folder and copies the info for each email into an SQL table. If I come across an email that is already in the SQL table I move it to another folder and not process it. I have a problem if there is an email in the system and one already moved that match the next email. Therefore if a person has sent the exact same email more than twice.
The program thinks it has already moved the email to the Non Processed folder and then gives an error when I try to move it.
It hasn't been moved but an identical email to it has. If I shut down and run again it is fine. Is there anyway to clear the memory before move emails?
EntryID Property Of Outlook Emails
When I run this code in Access:
Code:
Public Sub OpenOutlookEmail(ByVal strEntryID As String)
Dim objOutlook As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objCSIFolder As Outlook.MAPIFolder
Dim objDisplayEmail As Outlook.MailItem
Dim objFolders As Outlook.Folders
Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objFolders = objNameSpace.Folders
Set objCSIFolder = OpenOutlookFolder("Public FoldersAll Public FoldersABCD", objFolders)
Set objDisplayEmail = objCSIFolder.Items.Find("[EntryID] = '" & strEntryID & "'")
If TypeName(objDisplayEmail) <> "Nothing" Then
objDisplayEmail.Display 'THE USE CAN MAKE CHANGES AND SAVE THEM TO OUTLOOK
Else
MsgBox "Email not found in Outlook!", vbOKOnly + vbExclamation
End If
End Sub
I get the message:
Run-time error '-1214119927 (b7a20009)'
The property "EntryID" in the condition is not valid
I would be very grateful if someone could tell me where I have gone wrong. I have tried several permutations of filter
Moving Duplicate Emails In Outlook
I have an application that runs through all the emails in an Outlook folder and copies the info for each email into an SQL table. If I come across an email that is already in the SQL table I move it to another folder and not process it. I have a problem if there is an email in the system and one already moved that match the next email. Therefore if a person has sent the exact same email more than twice.
The program thinks it has already moved the email to the Non Processed folder and then gives an error when I try to move it.
It hasn't been moved but an identical email to it has. If I shut down and run again it is fine. Is there anyway to clear the memory before move emails?
Heres How To Send Emails In Outlook
Just add a default Command button and Text box control on a form and change the details in the Call to CreateEmail.
When you press the command button your email will be sent.
VB Code:
Private Sub Command1_Click() ' The vbNullString at the end of this call can be replaced with an attachment that can go along with the email ' If no attachment is being sent, leave this parameter as vbNullString Call CreateEmail("recipientsemailaddress@wherever.com", "This param is the text that appears in the subject", "Main email text goes here", vbNullString)End Sub Public Sub CreateEmail(Recipient As String, Subject As String, Body As String, Attach As String) 'Create a reference to a mail itemDim o1 As Outlook.ApplicationDim e1 As Outlook.MailItem 'Create a new mail item Set o1 = New Outlook.Application Set e1 = o1.CreateItem(olMailItem) 'Set a few of the many possible message ' parameters. e1.To = Recipient e1.Subject = Subject e1.Body = Body 'This is how you add attachments If Attach <> vbNullString Then e1.Attachments.Add Attach End If 'e1.Display 'Commit the message e1.Send 'Free up the space Set e1 = Nothing 'If we get this far then we must have succeeded in finding the contact in the addressbook etc text1.Text = "Email Successfully sent" End Sub
Outlook Rules (moving Emails)
anyone know how to automate running rules that have already been setup in outlook xp??
the rules are local for a POP3 system.. not an exchange server... i wasn't able to find any info..
basically sometimes the rules i have setup don't work when i open outlook and get all my mail...but then i go in and run them manually and they work... sometimes it will even move some emails but not others.. but it always works fine when i run it myself.. so i want to automate running the rules..
Drag Drop Outlook Emails?
Anyone know how I could go about dragging an outlook email message from outlook over and drop it into my VB app and read in the email message into a string or a RTB or whatever..??
|
TRACKER
