Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook versenden inkl. Text

Workbook versenden inkl. Text
08.11.2006 09:02:22
Bernd
Hallo liebe Excel-Spezies,
ich habe das Problem, dass ich mein aktives Workbook versenden möchte, allerdings mit einem zusätzlichen Text.
Das versenden des Workbooks mit dem Betreff klappt sehr gut...
...und zwar hiermit
ActiveWorkbook.SendMail Recipients:="abc@t-online.de", Subject:="Hier steht der Betreff"
Allerdings möchte ich auch noch einen Text mitgeben, z.B. "Hallo blablabla... Gruß Ich"
Ist das möglich?
Gruß
Bernd G.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbook versenden inkl. Text
08.11.2006 09:06:41
mumpel
Hallo!
Diese Frage wurde schon oft gestellt. Schau Dir hierzu mal meine Übungsmappe an.
https://www.herber.de/bbs/user/37960.xls
Gruss Rene
AW: Workbook versenden inkl. Text
08.11.2006 09:16:05
mumpel
Hier malm ei´n Beispielmakro:

Sub Test33()
On Error Resume Next
ActiveWorkbook.Save 'Speichert aktive Arbeitsmappe
AWS = ActiveWorkbook.FullName
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.display
.to = "test@test.de" 'Empfänger
.cc = "deineqtest.de" ' Kopie an
.bcc = "ihre@test.de" 'Blindkopie an
.Subject = "Guten Tag" & vbrlf & vbCrLf & "Anbei gewünschte Unterlagen" & vbCrLf & vbCrLf & _
"Mit freundlichen grüßen" & vbCrLf & "Unterschrift" 'Das ist der Text
.Body = TextBox3.Text
.Attachments.Add AWS
.display
End With
End Sub

Gruss Rene
Anzeige
AW: Workbook versenden inkl. Text
08.11.2006 09:20:49
mumpel
Nachtrag: MAkro war falsch, hier Korrektur

Sub Test33()
On Error Resume Next
ActiveWorkbook.Save 'Speichert aktive Arbeitsmappe
AWS = ActiveWorkbook.FullName
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.display 'zeigt die Mail an und kann durch .Send ersetzt werden
.to = "test@test.de" 'Empfänger
.cc = "deineqtest.de" ' Kopie an
.bcc = "ihre@test.de" 'Blindkopie an
.Body = "Guten Tag" & vbrlf & vbCrLf & "Anbei gewünschte Unterlagen" & vbCrLf & vbCrLf & _
"Mit freundlichen grüßen" & vbCrLf & "Unterschrift" 'Das ist der Text
.Suject = "Siehe Anhang"
.Attachments.Add AWS.display
End With
End Sub

Gruss Rene
Anzeige
AW: Workbook versenden inkl. Text
08.11.2006 09:24:23
mumpel
Dieser PC hat sich schon wieder selbständig gemacht. Die Zeile ".Attachments.Add AWS.display" durch "Attachments.Add AWS" ersetzen
Gruss Rene

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige