Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Makro vervollständgen |
29.01.2016 15:50:59 |
Andreas |
|
|
|
29.01.2016 19:03:33 |
Gast64095 |
|
|
|
29.01.2016 20:35:51 |
Andreas |
|
|
|
30.01.2016 09:34:39 |
Gast1855 |
|
|
|
30.01.2016 20:26:03 |
Andreas |
|
|
|
30.01.2016 21:05:42 |
Gast7160 |
|
|
|
30.01.2016 21:48:15 |
Andreas |
|
|
Von:
Andreas |
Datum:
29.01.2016 15:50:59 |
Views:
2924 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Makro vervollständgen |
29.01.2016 15:50:59 |
Andreas |
|
|
|
29.01.2016 19:03:33 |
Gast64095 |
|
|
|
29.01.2016 20:35:51 |
Andreas |
|
|
|
30.01.2016 09:34:39 |
Gast1855 |
|
|
|
30.01.2016 20:26:03 |
Andreas |
|
|
|
30.01.2016 21:05:42 |
Gast7160 |
|
|
|
30.01.2016 21:48:15 |
Andreas |
|
|