Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Text aus geöffneter Word-Datei in neue mail einfügen...
zurück: DropDownMenü vorselektieren? weiter: Bilder in Word resizen ggf. formatieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
pro-e_girl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Jul 2009, 15:11
Rufname:

Text aus geöffneter Word-Datei in neue mail einfügen... - Text aus geöffneter Word-Datei in neue mail einfügen...

Nach oben
       Version: Office XP (2002)

Hallo, ich möchte den Inhalt einer geöffneten Word-Datei als Text in die mail einfügen, habe es mit .body = ActiveDocument probiert, hier wird aber nur der Dateiname reingesetzt. Wie kann ich das schaffen?

Dim OutApp As Outlook.Application
Set newMail = OutApp.CreateItem(olMailItem)
With newMail
.To = R
.Subject = "Checkliste"
.Body = ActiveDocument
.Display


Gruß
pro-e_girl Rolling Eyes
MarcSLK
Word seit 4.0 (DOS


Verfasst am:
06. Jul 2009, 16:00
Rufname:

AW: Text aus geöffneter Word-Datei in neue mail einfügen... - AW: Text aus geöffneter Word-Datei in neue mail einfügen...

Nach oben
       Version: Office XP (2002)

Hallo,

den direkten Text kann man wie folgt an einen speziellen Empfänger senden ohne direkt in Outlook zu arbeiten:

Sub MailSendenNeu()
Dim strVorgabe As String
Dim strMailAdresse As String
Dim objOL As Object
Dim objNachricht As Object

If Documents.Count = 0 Then
Exit Sub
End If

If ActiveDocument.Bookmarks.Exists("MailAdresse") _
Then
ActiveWindow.View.ShowAll = True
strVorgabe = ActiveDocument.Bookmarks _
("MailAdresse").Range.Text
ActiveWindow.View.ShowAll = False
End If

strMailAdresse = InputBox(Prompt:="E-Mail-Adresse:" _
, Title:="Dokument mailen", Default:=strVorgabe)
If strMailAdresse = "" Then
Exit Sub
End If

Set objOL = CreateObject("Outlook.Application")
If objOL Is Nothing Then
MsgBox "Fehler beim Starten von Outlook."
Exit Sub
End If

Set objNachricht = objOL.CreateItem(0)
With objNachricht
.Subject = ActiveDocument.Name
.Recipients.Add strMailAdresse
.Body = "Dokument zur Kenntnis." & vbCr & String _
(80, "-") & vbCr & vbCr & ActiveDocument.Content
.Send
End With

Set objNachricht = Nothing
Set objOL = Nothing
End Sub

Der Empfänger wird entweder aus dem Bookmark "MailAdresse" ausgelesen oder muss über eine Inputbox eingegeben werden. Für tägliche Reports an einen speziellen Empfänger ist natürlich der Bookmark zu bevorzugen.

Du kannst natürlich den Code auch so wie Du ihn brauchst anpassen.

Gruss

Marcus
pro-e_girl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Jul 2009, 11:04
Rufname:


AW: Text aus geöffneter Word-Datei in neue mail einfügen... - AW: Text aus geöffneter Word-Datei in neue mail einfügen...

Nach oben
       Version: Office XP (2002)

Hallo Marcus,
vielen Dank, das ist zwar nicht das was ich wollte, aber aus Deinem Programm
konnte ich den Befehl .body = ActiveDocument.Content ermitteln.
Mir hat also nur das Anhängsel ".Content" gefehlt.

LG
pro-e_girl Very Happy
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Serienbrieffunktion: Mail verschicken mit PDF Anhang 1 petrigam 3561 09. Jul 2009, 12:26
olvradam Serienbrieffunktion: Mail verschicken mit PDF Anhang
Keine neuen Beiträge Word Serienbriefe: Dateien variable einfügen / INCLUDETEXT 7 Floyd 8030 26. Mai 2009, 10:34
worf Dateien variable einfügen / INCLUDETEXT
Keine neuen Beiträge Word Serienbriefe: Bilder in Worddokumente automatisch einfügen 0 iam_RaGe 2850 24. März 2009, 14:07
iam_RaGe Bilder in Worddokumente automatisch einfügen
Keine neuen Beiträge Word Serienbriefe: Serienbrief per Mail über Outlook verschicken 7 Gast 10574 30. Dez 2008, 19:25
dr.dalle Serienbrief per Mail über Outlook verschicken
Keine neuen Beiträge Word Serienbriefe: Serienbrief per Mail versenden 1 Gast 4235 26. Nov 2008, 20:45
KaDan Serienbrief per Mail versenden
Keine neuen Beiträge Word Serienbriefe: Anrede einfügen 0 ArianeH 910 27. Aug 2008, 11:47
ArianeH Anrede einfügen
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Anlage UND Text/Signatur im Outlook - wie? 0 Marmar77 1300 12. Feb 2008, 14:38
Marmar77 Serienbrief mit Anlage UND Text/Signatur im Outlook - wie?
Keine neuen Beiträge Word Serienbriefe: Text am Seitenende fixieren 6 Fuffi 5065 08. Nov 2007, 18:52
Hübi Text am Seitenende fixieren
Keine neuen Beiträge Word Serienbriefe: Manuellen Seitenumbruch einfügen 1 BWolf 1400 16. Mai 2007, 21:05
Hübi Manuellen Seitenumbruch einfügen
Keine neuen Beiträge Word Serienbriefe: Datenbank einfügen klappt nicht mehr! 2 Schwertfeger 1321 24. März 2007, 21:32
Schwertfeger Datenbank einfügen klappt nicht mehr!
Keine neuen Beiträge Word Serienbriefe: Serienbriefe (E-Mail) über Outlook - kein Standard Mail Kont 2 TaHzO 1414 07. Dez 2006, 21:12
Gast Serienbriefe (E-Mail) über Outlook - kein Standard Mail Kont
Keine neuen Beiträge Word Serienbriefe: Auto Text als Bedingungsfeld? Mehrere Bedingungen.... Hilfe! 0 Andi_h 2733 13. Jul 2006, 08:37
Andi_h Auto Text als Bedingungsfeld? Mehrere Bedingungen.... Hilfe!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editor Forum