Herbers Excel/VBA-Archiv

Tabellenblatt senden an Email-Verteiler

• Tabellenblatt senden an Email-Verteiler von Anders Frederic vom 12.08.2004 10:48:38
• AW: Tabellenblatt senden an Email-Verteiler - von Andreas Walter am 12.08.2004 10:53:36
  • AW: Tabellenblatt senden an Email-Verteiler - von Frederic Anders am 12.08.2004 11:01:44
    • AW: Tabellenblatt senden an Email-Verteiler - von Andreas Walter am 12.08.2004 11:09:05
      • AW: Tabellenblatt senden an Email-Verteiler - von Frederic Anders am 12.08.2004 11:45:17
• AW: Tabellenblatt senden an Email-Verteiler - von Frederic Anders am 12.08.2004 11:48:53

Betrifft: Tabellenblatt senden an Email-Verteiler von: Anders Frederic
Geschrieben am: 12.08.2004 10:48:38

Hallo an alle,

ich hab ein grosses Problem, bei dem ich irgendwie nicht weiterkomme:

Ich habe eine Reisegenehmigung, die versendet werden muss.
In dieser ist ein SVERWEIS hinterlegt,der aufgrund des ausgewählten Namens die dazugehörige Emailadresse ausspuckt (F15).
Nun möchte ich über einen Button diese Datei an die Emailadresse aus Zelle F15 senden.
Alle SendMail_ Funktionen funktionieren nur mit einer im Makro fest hinterlegten Adresse.

Gibt es so ein Makro?
Danke für Eure Hilfe.
Frederic Anders

Betrifft: AW: Tabellenblatt senden an Email-Verteiler von: Andreas Walter
Geschrieben am: 12.08.2004 10:53:36

- Alle SendMail_ Funktionen funktionieren nur mit einer im Makro fest hinterlegten Adresse.

Errrr. Nein. Warum?

Wenn Dir nur noch fehlt, dass die Emailadresse flexibel wird, post mal den Code, den Du hast und dann kann man Dir helfen.

Tipp
Such mal den befehl
....= "qwieuqwe@akdad.qweew"
und ersetze es durch
....= [F15].Value




Betrifft: AW: Tabellenblatt senden an Email-Verteiler von: Frederic Anders
Geschrieben am: 12.08.2004 11:01:44

Hallo Andreas,

mein VBA-Code sieht folgendermassen aus:

Sub druck_send()
'
' druck_send Makro
' Makro am 13.03.2004 von Frederic aufgezeichnet
'

'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Belegerfassung").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("RKA").Select
    ThisWorkbook.SendMail _
   "frederic.anders@schwan-stabilo.com", _
   "Übermittlung des Datenblattes der RKA"
End Sub

Die Mailadresse "frederic.anders@schwan-stabilo.com", _ soll variabel werden (Werte durch F15).

Danke.
Frederic Anders




Betrifft: AW: Tabellenblatt senden an Email-Verteiler von: Andreas Walter
Geschrieben am: 12.08.2004 11:09:05

Du hast
ThisWorkbook.SendMail _
"frederic.anders@schwan-stabilo.com", _
"Übermittlung des Datenblattes der RKA"

geht
ThisWorkbook.SendMail _
[F15].Value,_
"Übermittlung des Datenblattes der RKA"

?




Betrifft: AW: Tabellenblatt senden an Email-Verteiler von: Frederic Anders
Geschrieben am: 12.08.2004 11:45:17

Nein, nur bedingt, dann geht Outlook auf und es wird die Email-Adresse verlangt.
Outlook soll ja nicht aufgehen, es soll im Hintergrund laufen.
Wenn ich =[F15] eingebe, krieg ich nen Syntaxfehler! :-(

Vielleicht noch eine Idee???

Frederic




Betrifft: AW: Tabellenblatt senden an Email-Verteiler von: Frederic Anders
Geschrieben am: 12.08.2004 11:48:53

Sorry Sorry Sorry,

ja klappt einwandfrei, hatte nur falschen Bezug genommen.
Spitze, danke dir!

Gruß.
Frederic

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt senden an Email-Verteiler"