collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 126
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 3
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14808
  • stats Beiträge insgesamt: 76039
  • stats Themen insgesamt: 10231
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 933

Autor Thema: Neue Email-Nachricht mit Signatur und formatierten Bereich von Excel in Body  (Gelesen 1097 mal)

Offline Pergus

  • Access-Profi
  • **
  • Beiträge: 137
Guten Tag Euch Allen!

Ich habe mein Problem bereits ins Forum-Kapitel Excel gepostet (http://www.access-o-mania.de/forum/index.php?topic=23414.0),
jedoch scheint es so, als ob es dort vielleicht nicht die richtigen Ansprechspartner zu finden scheint,
Grund dafür, wieso ich es hier nochmals versuche zu erläutern.

Ich habe in Excel ein Makro das mir bestimmte Daten gefiltert kopiert, z.B.: Worksheets("Test").Range("A1:C10").Copy

Mein Problem:
Jetzt müsste ich in Outlook eine neue Email-Nachricht öffnen mit einer gespeicherten Signatur ("Signatur-personalisiert")
und diese kopierten Daten aus Excel (mit all seinen Formatierungen) im Body der Email-Nachricht einfügen.

Bisher habe ich es händisch gemacht, sprich:

- Neue Email-Nachricht (wird mit gespeicherter Signatur "Signatur-personalisiert" geöffnet)
- benötigte Daten in der Excel-Tabelle ("Test") im variablen Bereich ("A1:C10") kopiert
- im Body der Email-Nachricht eingefügt

Ist sowas mit Makro's möglich (bitte entschuldigt die vielleicht blöde Frage,
habe in Outlook noch nie mit Makros gearbeitet und stehe folglich auf dem Schlauch  :-[)?

Ich bedanke mich schon mal im Voraus für jeglichen Tipp!

Lg aus Südtirol
Gustav
Win7, Office Professional 2010
 

Offline Pergus

  • Access-Profi
  • **
  • Beiträge: 137
...habe was gefunden und zwar hier:

http://www.herber.de/forum/archiv/920to924/923871_TabellenBereich_in_EMail_einfuegen.html

Das betreffende Makro wäre folgender:

Sub BEREICHMAILEN()

    Dim OutApp As Object, Mail As Object, i
    Dim Nachricht

' nachfolgend den gewünschten Tabellenbereich einstellen
    Range("C47:G102").Select
    Selection.Copy

' Öffnen der Mail
        Set OutApp = CreateObject("Outlook.Application")
        Set Nachricht = OutApp.CreateItem(0)
        With Nachricht
            .Subject = "Betrefftext"
            .To = "Email@dresse.de"
            .Display
        End With
        Set OutApp = Nothing
        Set Nachricht = Nothing

'Kurz warten, damit die Mail Zeit zum Öffnen hat
        Application.Wait (Now + TimeValue("0:00:05"))

' Dann die Zwischenablage einfügen
        Application.SendKeys ("%bi") ' im Menü BEARBEITEN (Alt-B) das e-I-nfügen wählen
        'Application.SendKeys ("^v") ' Strg-V Anweisung ist die 2.Möglichkeit statt Alt-B + I
       
End Sub

...allerdings:

- der Body der Email-Nachricht hat nicht den Focus und der kopierte Bereich wird im Makro selber eingefügt!

Wie setzt man in Outlook den Focus auf den Body der Email-Nachricht?

Danke schon mal im Voraus!

Lg aus Südtirol
Gustav
Win7, Office Professional 2010
 

Offline Pergus

  • Access-Profi
  • **
  • Beiträge: 137
Win7, Office Professional 2010
 

 

neue Word-Downloads

Begonnen von HondoBoard Microsoft Word

Antworten: 1
Aufrufe: 9947
Letzter Beitrag März 04, 2009, 10:53:28
von Klingon 33
Tabelle neue Daten von andere Tabelle

Begonnen von Gabriel08Board Tabelle/Abfrage

Antworten: 1
Aufrufe: 3366
Letzter Beitrag Mai 21, 2010, 19:01:58
von database
Werte in jweils neue Spalte der 1. Zeile schreiben

Begonnen von KarWaldBoard Tabelle/Abfrage

Antworten: 1
Aufrufe: 2939
Letzter Beitrag Juli 27, 2010, 19:41:50
von database
Neue MS Office Formate in ältere Office Versionen nutzen

Begonnen von Jürgen82Board Microsoft Word

Antworten: 1
Aufrufe: 4042
Letzter Beitrag August 31, 2010, 19:07:57
von database
Neue DS anlegen anhand von Auswahl im Listenfeld

Begonnen von JunoBoard Access Programmierung

Antworten: 2
Aufrufe: 2465
Letzter Beitrag November 01, 2010, 12:55:29
von Juno