Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Word Dokument per Klick auf Button per mail versenden
zurück: Problem mit Filter weiter: Regel einfügen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
lexi3112
Gast


Verfasst am:
20. Nov 2012, 17:46
Rufname:

Word Dokument per Klick auf Button per mail versenden - Word Dokument per Klick auf Button per mail versenden

Nach oben
       Version: Office 2010

Hallo,

ich moechte gerne einen Button am Ende eines Dokumentes einfuegen, welcher bei Klick das gesamte Dokument an eine bestimmte eMail Addresse versendet.

Wie man einen Active-X Button einfuegt, weiss ich bereits, jedoch fehlt mir der VBA Code fuer den Button. Ist es moeglich diese Fubnktion einfach zu realisieren oder benoetige ich dafuer tieferer VBA Kenntnisse....

Vielen Dank fuer eure Hilfe Smile
alex3112
Gast


Verfasst am:
28. Nov 2012, 23:35
Rufname:


AW: Word Dokument per Klick auf Button per mail versenden - AW: Word Dokument per Klick auf Button per mail versenden

Nach oben
       Version: Office 2010

Keiner eine Loesung oder einen Hinweis?
CaBe
Word-Kenner und Excel-Anwender


Verfasst am:
29. Nov 2012, 12:18
Rufname: Carsten
Wohnort: Bremen

AW: Word Dokument per Klick auf Button per mail versenden - AW: Word Dokument per Klick auf Button per mail versenden

Nach oben
       Version: Office 2010

Hallo alex oder lexi (bitte bleib doch bei einem Gastnamen),

in diesem Fall wärst du mit Google schon recht gekommen. Ich finde jedenfalls diesen und diesen Beitrag recht hilfreich und leicht umsetzbar. Und damit die Suche nicht zu umständlich wird, poste ich mal ein Stückchen Code:
Code:
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

_________________
Freundlichst,
Carsten

Keine Antwort wäre wirklich schade!
Alex3112
Gast


Verfasst am:
19. Dez 2012, 16:27
Rufname:


AW: Word Dokument per Klick auf Button per mail versenden - AW: Word Dokument per Klick auf Button per mail versenden

Nach oben
       Version: Office 2010

Vielen Dank fuer die Antwort.
Jedoch muesste ich auf eine andere Anwendung verweisen (Lotus Notes). Gibt es eine Moeglichkeit eine Liste mit den Objektnamen zu finden. Oder woher weiss ich, wie ich Lotus Notes in das Makro einbinden kann.

Vielen Dank.
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: Geschütztes Dokument, Umschlag drucken 1 MrUmschlag 1600 30. Aug 2010, 08:45
MrUmschlag Geschütztes Dokument, Umschlag drucken
Keine neuen Beiträge Word Serienbriefe: Seriendruck in E-Mail (per Anlage) - E-Mail mit Text 1 Gast 2512 16. Jun 2010, 13:44
Gast Seriendruck in E-Mail (per Anlage) - E-Mail mit Text
Keine neuen Beiträge Word Serienbriefe: Word Dokument mit Datenbank verknüpfen (ähnlich Serienbrief) 3 Greenkeeper 4652 04. Dez 2009, 17:36
charlybrown Word Dokument mit Datenbank verknüpfen (ähnlich Serienbrief)
Keine neuen Beiträge Word Serienbriefe: datenfelder beim öffnen von dokument nicht aktualisiert! 6 goto_# 3821 17. Nov 2009, 20:19
goto_# datenfelder beim öffnen von dokument nicht aktualisiert!
Keine neuen Beiträge Word Serienbriefe: Textmarken per Includetext einfügen in Abhängigkeit von ASK 0 Robotixx 1804 13. Jul 2009, 19:45
Robotixx Textmarken per Includetext einfügen in Abhängigkeit von ASK
Keine neuen Beiträge Word Serienbriefe: .mdb per e-mail 2 schokomo 999 17. Apr 2009, 09:20
Gast .mdb per e-mail
Keine neuen Beiträge Word Serienbriefe: Text einer Textmarke an anderer Stelle im Dokument anzeigen? 8 bbask 3232 07. Apr 2009, 13:07
Gast Text einer Textmarke an anderer Stelle im Dokument anzeigen?
Keine neuen Beiträge Word Serienbriefe: Serienbrieferstellung mit geschütztem Dokument 14 Samsara 2514 01. Feb 2009, 21:34
charlybrown Serienbrieferstellung mit geschütztem Dokument
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: Dropdown Feld und "Sverweis" in Word Dokument 2 pg03 7980 29. Nov 2007, 23:45
badangel Dropdown Feld und "Sverweis" in Word Dokument
Keine neuen Beiträge Word Serienbriefe: Formular und Serienbrief in einem Dokument 0 sors21 1388 27. Nov 2007, 19:56
sors21 Formular und Serienbrief in einem Dokument
Keine neuen Beiträge Word Serienbriefe: Sehr geehrte / Sehr geehrter per IF Funktion einbinden 1 GambleMate 2713 27. Jun 2007, 21:15
jawahnsinn Sehr geehrte / Sehr geehrter per IF Funktion einbinden
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript