Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
176to180
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
176to180
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mail aus excel mit auswahl der tabellen

mail aus excel mit auswahl der tabellen
06.11.2002 15:51:37
Dino
hallo leute,
ich habe zwar ein makro mal zugeschickt bekommen, welches eine tabelle als temp. datei ablegt und somit das aktive blatt versendet. ich benötige jedoch eine erweiterte version, bei welcher ich mehrere blätter einer datei auswählen und gemeinsam verschiocken kann, ohne, dass alle blätter für den empfänger sichtbar sind, sondern eben nur die, die ich ausgewählt habe. hier nun das makro:
Sub MailAktivTabelle()
Dim str1 As String
Dim str2 As String

On Error GoTo fehler

ActiveWorkbook.Worksheets(ActiveSheet.Name).Copy
str1 = InputBox _
("Bitte Adressaten eingeben!" & Chr(13) & _
"hans.muster@xx.ch", "Adressat")
If str1 = "" Then MsgBox "Sie haben abgebrochen!": _
Exit Sub
str2 = InputBox _
("Bitte Betreff eingeben!", "Titel")
If str2 = "" Then MsgBox "Sie haben abgebrochen!": _
Exit Sub
Application.Dialogs(xlDialogSendMail).Show str1, str2
ActiveWorkbook.Close savechanges:=False
Exit Sub

fehler:

MsgBox ("Es muss eine Datei geöffnet sein!")
End Sub

Vielen dank im vorasu an alle makro chracks.

gruß dino

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
kein Nickname
06.11.2002 17:26:38
Dino Ferrari __o.T.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige