Outlook 2003: Link zu einer Datei per VBA in Mail einfügen

arno

unread,

Jul 30, 2009, 4:07:52 AM7/30/09

to

Hallo,

ich programmiere recht viel mit VBA für Excel, aber von Outlook habe
ich in dieser Hinsicht keine Ahnung - und ein Makro aufzeichnen geht
da nicht :(

Könnte mir jemand die folgenden Codeschnipsel schreiben, das folgenden
Text in das aktuelle Mail an der Cursorposition einfügt:

"<file://PFADDATEI>"

Das war es schon :) PFADDATEI überschreibe ich dann entsprechend.

Die DeLuxe Version wäre es, im Makro folgendes zu machen:

"<file://" & InhaltMeinerZwischenablage & ">"

Viele Grüsse

arno

Michael Bauer [MVP - Outlook]

unread,

Jul 30, 2009, 1:26:19 PM7/30/09

to

Am Thu, 30 Jul 2009 01:07:52 -0700 (PDT) schrieb arno:

> Hallo,
>
> ich programmiere recht viel mit VBA f�r Excel, aber von Outlook habe

> ich in dieser Hinsicht keine Ahnung - und ein Makro aufzeichnen geht
> da nicht :(
>

> K�nnte mir jemand die folgenden Codeschnipsel schreiben, das folgenden
> Text in das aktuelle Mail an der Cursorposition einf�gt:
>
> "<file://PFADDATEI>"
>
> Das war es schon :) PFADDATEI �berschreibe ich dann entsprechend.
>
> Die DeLuxe Version w�re es, im Makro folgendes zu machen:

>
> "<file://" & InhaltMeinerZwischenablage & ">"
>

> Viele Gr�sse
>
> arno

Hallo,

den Mailinhalt findest Du je nach Format in der Body- oder
HTMLBody-Eigenschaft.

An die Cursurposition schreiben geht mit Outlook nur, wenn Word als
Maileditor verwendet wird (ist ab OL07 gegeben). Dann kannst Du �ber
MailItem.GetInspector.WordEditor einen Verweis auf ein Word.Document-Objekt
erhalten und mit der Word-Bibliothek weiterprogrammieren.

Ohne Word als Maileditor ginge es noch mithilfe der Redemption
(www.dimastr.com).

An die Zwischenablage kommst Du, indem Du einmal dem VBA-Projekt eine
UserFrom hinzuf�gst; dadurch wird ein Verweis auf die MSForms-Bibliothek
erstellt (die UserForm kannst Du dann wieder entfernen). In der MSForms gibt
es das DataObject mit allen n�tigen Funktionen (siehe Objektbrowser - f2 -
f�r Details).

--
Viele Gruesse
Michael Bauer - MVP Outlook

: Outlook-Kategorien? Category Manager ist die L�sung
: VBOffice Reporter f�r Datenanalyse & Berichte
: <http://www.vboffice.net/product.html?pub=6>

arno

unread,

Jul 30, 2009, 1:54:57 PM7/30/09

to

Hallo Michael,

danke für die Hinweise, aber das ist doch ein wenig zu kompliziert
bzw. an zu viele Bedingungen gebunden. Naja, wie gesagt, ich kenne
mich in Outlook mit VBA nicht aus, ist hinterhältiger als gedacht ;)

Macht aber nichts, ich werde es überleben,

lg

arno

unread,

Jul 31, 2009, 1:52:16 AM7/31/09

to

gut geschlafen? ich auch:

Sub LinkEinfügen()
'fügt eine Vorlage für einen Link an der Cursorposition ein
'und markiert das Wort LINK
SendKeys "<file://LINK>"
SendKeys "{LEFT}"
SendKeys "^+{LEFT}"
End Sub

arno

Message has been deleted

arno

unread,

Jul 31, 2009, 2:18:16 AM7/31/09

to

DeLuxe Version:

Sub LinkEinfügen()
'fügt eine Vorlage für einen Link an der Cursorposition ein
'und markiert das Wort LINK

'und überschreibt es bei Bedarf mit dem Inhalt der Zwischenablage

Dim Antwort

Antwort = MsgBox("Link aus der Zwischenablage einfügen?" & Chr(10)
& Chr(10) & _
"Bei nein wird ein Standardlink eingefügt.", vbYesNo, "Link
automatisch übernehmen")

'Standardvorlage einfügen

SendKeys "<file://LINK>"
SendKeys "{LEFT}"
SendKeys "^+{LEFT}"

'Bei Antwort Ja den Inhalt der Zwischenablage einfügen
If Antwort = 6 Then
SendKeys "^v"
End If
End Sub

arno

tyl...@gmail.com

unread,

Sep 3, 2012, 7:43:14 AM9/3/12

to

> Sub LinkEinfügen()
>
> SendKeys "<file://"
> SendKeys "^v"
> SendKeys ">"
> SendKeys "{ENTER}"
>
>End Sub

Das geht aber nicht mehr unter 2010. Oder wie?