Thema Datum  Von Nutzer Rating
Antwort
Rot Makro vervollständgen
 29.01.2016 15:50:59 Andreas
NotSolved
29.01.2016 19:03:33 Gast64095
NotSolved
29.01.2016 20:35:51 Andreas
NotSolved
30.01.2016 09:34:39 Gast1855
NotSolved
30.01.2016 20:26:03 Andreas
NotSolved
30.01.2016 21:05:42 Gast7160
NotSolved
30.01.2016 21:48:15 Andreas
Solved

Ansicht des Beitrags:
Von:
Andreas		 Datum:
29.01.2016 15:50:59		 Views:
2890		 Rating:
     
Antwort:
  Ja
Thema:
Makro vervollständgen

Hallo,

wäre schön wenn ich hier Hilfe bekomme .Folgendes Makro sendet bei mir einen bestimmten Bereich per Mail.Zusätzlich möchte ich die gesamte Datei an die Mail anhängen .Wie lautet der Befehl?

Weiterhin bekomme ich mit +++ gekennzeichneten Zeile ab und zu schwerwiegender Fehler-woran kann das liegen?

Vielen Dank

 

Sub versuches()
' versuches Makro

    Dim OutApp As Object, Mail As Object, i
    Dim Nachricht
    'Verweis auf "Microsoft Forms 2.0 Object Library" aktivieren !!
    'sonst geht es nicht
    'Dataobject wird gebraucht wegen der Zwischenablage
  
  +++      Set OutApp = CreateObject("Outlook.Application")
        Set Nachricht = OutApp.CreateItem(0)
        'Excelbereich der versendet werden soll.
'Wenn kein Bereich versendet werden soll sondern
'der Bereich bereits kopiert wurde, können sie die
'nächsten beiden Zeilen auskommentieren
        Range("$AJ$2:$AQ$9").Select
        'Bereich wird in die Zwischenablage kopiert
        Selection.Copy
        With Nachricht
            .Subject = "TT Training"
            'Zwischenablage wird eingefügt
            .To = "@freenet.de"
            .Body = "Hallo TT Freunde, hier die aktuelle Auswertung"
            'Hier wird die Mail angezeigt
            .Display
           
           
        End With
        Set OutApp = Nothing
        Set Nachricht = Nothing
        'Auf Outlook warten. Ist nicht schnell genug :-))
        Application.Wait (Now + TimeValue("0:00:05"))
   
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro vervollständgen
 29.01.2016 15:50:59 Andreas
NotSolved
29.01.2016 19:03:33 Gast64095
NotSolved
29.01.2016 20:35:51 Andreas
NotSolved
30.01.2016 09:34:39 Gast1855
NotSolved
30.01.2016 20:26:03 Andreas
NotSolved
30.01.2016 21:05:42 Gast7160
NotSolved
30.01.2016 21:48:15 Andreas
Solved