VBA und Bluetooth Stack

[darph]

Ich hab ja net wirklich Ahnung von VBA. Ich hab mir aber aus der Hilfe folgendes Makro für Outlook zusammengeschnippelt:


Sub testeinszwei()
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim MsgTxt As String
MsgTxt = "VCard sent." & Chr(13) & "OK for next."

Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection

For x = 1 To myOlSel.Count
myOlSel.Item(x).SaveAs "C:\" & "bt_tmp.vcf", olVCard
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "c:\Windows\Temp\bt_tmp.vcf", "d:\" 'Bluetooth\Object Push\Idefix\
fs.DeleteFile "c:\Windows\Temp\bt_tmp.vcf", True
MsgBox MsgTxt
Next x
End Sub


Das Makro erstellt aus einem Kontakt eine Visitenkarte, speichert sie temporär irgendwohin und kopiert sie dann an mein Ziel. im Moment "d:\". Bei mehreren Karten halt mehrmals.

Nun möchte ich aber, daß mir das Makro diese Visitenkarte via Bluetooth Object Push (Ich verwende den Toshiba Stack) an mein mobile ("Idefix") sendet.

Im Explorer wird dies als Ordnerstruktur dargestellt, wie aus dem Kommentar erstichtlich. Im Explorer funktioniert das auch mit Copy&Paste. Wie zu erwarten war, funktioniert das aber im Makro selbst nicht: "Pfad nicht gefunden".

Hat einer von Euch eine Idee, wie ich dieses Ans-Mobile-Senden realisieren kann?

Bin für jede Hilfe dankbar!