Hi

I am deleting folder as below;

For I = oItems.Count - 1 To 0 Step -1
oItems(I).delete()
End If

The problem is one element is always left in Draft folder from deletion.
What am I doing wrong?

Thanks

Regards

Hi

I am using below code;

For I = oItems.Count - 1 To 0 Step -1
oItems(I).delete()
End If

The problem is one element is always left from deletion. What am I doing
wrong?

Thanks

Regards

"Michael Bauer [MVP - Outlook]" mvps.org> wrote in message
news:14mouz2bqw8la.1o8glqtinwbr9.dlg@40tude.net...

Hi

I am trying to access the Draft folder using the following vb.net code;

Dim objOutlook As Object = CreateObject("Outlook.Application")
Dim oNS As Object = objOutlook.GetNamespace("MAPI")
Dim oFld As Object = objOutlook.Folder

oFld = oNS.GetDefaultFolder(olfolderDrafts)

Problem is I am getting a "Public member 'Folder' on type 'ApplicationClass'
not found." error on the line Dim oFld As Object = objOutlook.Folder. What
is the issue and how can I fix it?

Thanks

Regards

I recently ran accross an niffty utility that parsed through the inbox and
moved the emails to a folder based on the senders email address under the
inbox. For example an email sent by joe@junk.com would end up in a folder
called joe@junk.com under the inbox. If necessary, the folder was created if
it didn't exist.

Does anyone have that code, or could you point me in the right direction?

Thanks

Hi,
I am using outlook 2003.How can i programatically move single event in a
recurring event which is prior to particular date to a .pst file and
remaining should retain in calendar.
Thanks

I am trying to create a macro so that with a function key I would be able to
have text inserted into an email. Is this possible in Outlook 2003?

Hi,

I have a macro that is going through and evaluating each line of a
text file and importing it if it meets specific criteria. I need to
skip a certain number of rows if a certain criteria is met. What
syntax would I use to skip down a certain number of lines? This is
how I have been opening the file thus far.

FileNum=FreeFile

FileName = "Q:\Operations\Feedback Scores.LOG"

Open FileName For Input Lock Write as FileNum

I have written the macro code in excel, and from excel macro iam able to
DISPLAY the mail based on subject provided, now i need a macro code to copy
the body of displayed mail and paste it to a new excel workbook.

Here is my code....

Private strForwardTo As String

Sub subject_beginswith()

Dim ns As Namespace
Dim Inbox As MAPIFolder
Dim myitem As Outlook.MailItem
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer
Dim objSearchFolder As Outlook.MAPIFolder
Dim Recipient As Outlook.Recipient
Dim CorrRecip As String
Dim item As Object
Dim Body

Dim mai As MailItem

Does anyone know what happens if there is a conflict on item.
Does it still appear in the recordset of the query (Redemption+VB6+Outlook
2003EN)
and which part thereof ?

Hi,

I would like to control when emails get sent from Outlook. For
instance, when a user clicks send, some code needs to run. If the
result of the code that runs is acceptable, the email gets sent,
otherwise the message remains in the outbox. So I guess the event I
need to tap into is the one that checks the outbox for messages to be
sent and not the event that adds the item to the outbox items as items
will need to remain in the outbox until the result of the code that
runs is satisfactory.

I am using redemption in my code so would prefer to use that if at all
possible.

Thanks in advance.

Regards

Greg J