MAPI Controls (VB6)

Topic

New Reply

Just messing with MAPI Message and Session controls, which on my PC, uses Outlook Express.
Can anyone tell me if these controls work if a user uses Outlook ?

Basically, do the controls recognise which mail program is default.

Reply | Quote

Replies

These Controls are meant to work with your default MAPI client. Thus, the answer should be yes and yes.

Reply | Quote

Ok
Thanks for the information.

Reply | Quote

With the Mapi control, the code as below pre-determines the file attachments and, once the Mail application has opened, ie Outlook Express, it is still possible to attach more items using the “Attach” button (Common Dialog) from the program.
With the code below, there are 2 procedures “0” & “1”.
Is it possible to increase these procedures programatically to lets say attch many attachments from a list containing path & Filenames ?

.AttachmentIndex = 0
           .AttachmentPosition = 0
           .AttachmentPathName = ("c:test1.txt")
           .AttachmentIndex = 1
           .AttachmentPosition = 1
           .AttachmentPathName = ("c:test2.txt")
           .Send True

Reply | Quote

Note: AttachmentPosition indicates the character position of the attachment in the message body. It is zero-bases, so if your message body is 12 character long (“Hello World.”), available positions are 0 … 11.

Say that you have a list box lstFileNames. You could write a loop to include all list items:

Dim i As Long

With Me.MAPIMessages1
…
For i = 0 To Me.lstFileNames.ListCount – 1
.AttachmentIndex = i
.AttachmentPosition = i
.AttachmentPathName = Me.lstFileNames.List(i)
Next i
.Send True
End With

If you have a multi-select list box and want to include only selected items, you know how to modify this (If Me.lstFileNames.Selected(i) Then …)

Reply | Quote

Thanks Hans

Am I that predictable ?

Reply | Quote

Huh?

Reply | Quote

Hans
Works like a dream, I don’t care what anyone says about you, you’re something else aren’t you !!

Reply | Quote

Hans
Works like a dream, I don’t care what anyone says about you, you’re something else aren’t you !!

Reply | Quote

(Edited by D Willett on 30-Jan-04 12:43. Resolved, see under break line)

Hans
I changed:
.RecipDisplayName = “JoeBloggs@MyEmail.com”

To:

.RecipDisplayName = “Please Enter E-Mail Address Here”

Which obviously causes an error because the recipient is not known.
I remmed out the line also which created a “Cannot perform action” error.

Is there a way to leave the recipient empty on loading ?

—————————————————————————————————-
How stupid of me, I never saw the ‘.ResolveName property, remmed out, it works fine.
Thanks again.

Reply | Quote

(Edited by D Willett on 30-Jan-04 12:13. Solution Found, see under break)

Sorry but just another glitch.

I ran the application on a W98 machine and it required the MAPI…ocx to be registered.
Can this be done via code ?
I understand Win2000 & Winxp alreday have this control in the System32 folder ?
Am I correct and these Op systems don’t require the registration ?
—————————————————————————————————————-

Solution found:
Copied RegSvr32 & ocx file to Application Utilities folder.
Then on the splash form, added the following line:

Shell ("L:mmpdfutilitiesregsvr32.exe /s msmapi32.ocx")

Reply | Quote

Hey, we don’t have to answer your questions any more. Just wait a while and you’ll solve them yourself

Reply | Quote

I don’t know so much ! I have loads of ideas rolling around in my head !!

You know what they say, keep staring at something and it will soon become clear.

Mind you, I tried that on my windows (house ones) and they still don’t clean themselves.

Have a good weekend

Reply | Quote

I don’t know so much ! I have loads of ideas rolling around in my head !!

You know what they say, keep staring at something and it will soon become clear.

Mind you, I tried that on my windows (house ones) and they still don’t clean themselves.

Have a good weekend

Reply | Quote

Hey, we don’t have to answer your questions any more. Just wait a while and you’ll solve them yourself

Reply | Quote

(Edited by D Willett on 30-Jan-04 12:13. Solution Found, see under break)

Sorry but just another glitch.

I ran the application on a W98 machine and it required the MAPI…ocx to be registered.
Can this be done via code ?
I understand Win2000 & Winxp alreday have this control in the System32 folder ?
Am I correct and these Op systems don’t require the registration ?
—————————————————————————————————————-

Solution found:
Copied RegSvr32 & ocx file to Application Utilities folder.
Then on the splash form, added the following line:

Shell ("L:mmpdfutilitiesregsvr32.exe /s msmapi32.ocx")

Reply | Quote

(Edited by D Willett on 30-Jan-04 12:43. Resolved, see under break line)

Hans
I changed:
.RecipDisplayName = “JoeBloggs@MyEmail.com”

To:

.RecipDisplayName = “Please Enter E-Mail Address Here”

Which obviously causes an error because the recipient is not known.
I remmed out the line also which created a “Cannot perform action” error.

Is there a way to leave the recipient empty on loading ?

—————————————————————————————————-
How stupid of me, I never saw the ‘.ResolveName property, remmed out, it works fine.
Thanks again.

Reply | Quote

Huh?

Reply | Quote

Note: AttachmentPosition indicates the character position of the attachment in the message body. It is zero-bases, so if your message body is 12 character long (“Hello World.”), available positions are 0 … 11.

Say that you have a list box lstFileNames. You could write a loop to include all list items:

Dim i As Long

With Me.MAPIMessages1
…
For i = 0 To Me.lstFileNames.ListCount – 1
.AttachmentIndex = i
.AttachmentPosition = i
.AttachmentPathName = Me.lstFileNames.List(i)
Next i
.Send True
End With

If you have a multi-select list box and want to include only selected items, you know how to modify this (If Me.lstFileNames.Selected(i) Then …)

Reply | Quote

With the Mapi control, the code as below pre-determines the file attachments and, once the Mail application has opened, ie Outlook Express, it is still possible to attach more items using the “Attach” button (Common Dialog) from the program.
With the code below, there are 2 procedures “0” & “1”.
Is it possible to increase these procedures programatically to lets say attch many attachments from a list containing path & Filenames ?

.AttachmentIndex = 0
           .AttachmentPosition = 0
           .AttachmentPathName = ("c:test1.txt")
           .AttachmentIndex = 1
           .AttachmentPosition = 1
           .AttachmentPathName = ("c:test2.txt")
           .Send True

Reply | Quote

Ok
Thanks for the information.

Reply | Quote

These Controls are meant to work with your default MAPI client. Thus, the answer should be yes and yes.

Reply | Quote