The clipboad Object doesn't work from outlook VBA

[Michael]

Hello to all

I using XP and Outlook 2003 and I like to copy selected mailadresses from
the current OL Explorer (contact items) to the clipboard. Problem: The
clipboad Object doesn't work. I don't know why.

Thank you for any hint!

Michael

Public Sub A_Mail2Clipboard()
'This Makro shall copy all emailaddresses from selected records of the
current OL Explorer

Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim MsgTxt As String
Dim x As Integer
MsgTxt = ""
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.Count
MsgTxt = MsgTxt & myOlSel.Item(x).Email1Address & ", "
Next x



clipboard.SetText MsgTxt '<-------- It looks like, the
clipboard is not available ?????


End Sub

 

[Karl E. Peterson]

clipboard.SetText MsgTxt '<-------- It looks
like, the clipboard is not available ?????

Right. That object is exclusive to VB, and not offered in VBA. Take a look at
http://vb.mvps.org/samples/ClipEx for a drop-in (near) replacement that is usable
from VBA.

 

[Michael]

Thanks for that link!

Right. That object is exclusive to VB, and not offered in VBA. Take a
look at
http://vb.mvps.org/samples/ClipEx for a drop-in (near) replacement that is
usable
from VBA.

 

[Michael]

Hi again.

Here are my final code using the data object: Maybe someone can use it too.

Thanks to all!

Michael


Dim MyData As DataObject
Public Sub A_Mail2Clipboard()
'This Makro copies all emailaddresses from selected records of the
current OL explorer

Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim MsgTxt As String
Dim x As Integer
MsgTxt = ""
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.Count
MsgTxt = MsgTxt & myOlSel.Item(x).Email1Address & ", "
Next x


Set MyData = New DataObject

MyData.SetText MsgTxt

MyData.PutInClipboard


End Sub