 |
|||
- Home
- Downloads
- Praxis & Hilfe
- Forum
- Tests
- Produkte
- News
- Games
- Sicherheit
- Specials
- Heftarchiv/PDF
- E-Paper
- Partnerchannel
- Downloadshop
- Jobs
- CIO-Channel
- Onlineshops
- Presseticker
- Wettbewerbe
- Newsletter
- RSS-Feed
- Abo
- Mediadaten
- Kontakt
- Über PCtipp
- Sitemap
BENUTZER ONLINE:
815
Word-Datei per Makro versenden
Problem: Im Kummerkastenartikel 36217 beschreiben Sie, wie man ein Excel-File an eine bestimmte Mailadresse als Anhang per Makro versendet. Ich benötige nun die genau gleiche Funktion, allerdings mit einem Word-Dokument. Ich habe ActiveWorkbook durch ActiveDocument ersetzt, aber es funktioniert einfach nicht. Können Sie mir hier weiterhelfen?
von
Monica Hubacher
(17.06.2007)
Lösung: Ja, das wäre wirklich toll, wenn es immer so einfach wäre. Das Makro für Word ist leider etwas umfangreicher als jenes für Excel. Sie finden es im Anschluss und können es in ein Modul ihres Word-Dokuments kopieren.
Da wir im Makro auch Objekte aus Outlook ansprechen, muss sichergestellt werden, dass dies VBA bekannt ist. Um dies zu überprüfen, klicken Sie auf Extras/Verweise
und kontrollieren dort, ob der Punkt «Microsoft Outlook 11.0 Object Library» aktiviert ist (die Nummer ist abhängig von der Outlook Version). Ist dies der Fall, können Sie loslegen. Ansonsten suchen Sie den erwähnten Punkt in der Liste und setzen den Haken.
Nach dem Ausführen des Makros wird das Dokument als Anhang verschickt.
--------------------------------------
MAKRO ZUM VERSENDEN:
--------------------------------------
Sub DocAlsAnhangSenden()
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
On Error Resume Next
If Len(ActiveDocument.Path) = 0 Then
MsgBox "Dokument muss erst gespeichert werden"
Exit Sub
End If
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
.To = "test@example.com" '<-- E-Mail-Adresse
.Subject = "Word Dokument als Anhang versenden"
.Attachments.Add Source:=ActiveDocument.FullName, _
Type:=olByValue, _
DisplayName:="Dokument als Attachment"
.Send
End With
If bStarted Then
oOutlookApp.Quit
End If
Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub
--------------------------------------
Drucken
Weiterempfehlen
Kommentare lesen (1)
Laden Sie die PCtipp-App kostenlos auf Ihr Smartphone und bleiben Sie auf dem Laufenden.
Windows 7
Windows 2000
Windows XP
Windows Vista
Linux
Mac
Sicherheit
Internet
Office
Multimedia
Spiele
Hardware
Windows9x/NT
Mobile
Sonstiges
Impressum |