Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
316to320
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
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Send Mail Excel - Lotus notes

Send Mail Excel - Lotus notes
01.10.2003 12:23:23
ibridode
Hallo zusammen,
wer kann mir mitteilen, wo bzw. wie ich feste E-Mail und Betreffzeilen eintragen kann, damit keine Abfrage mehr kommt.
Hintergrund ist dass eine in der VBA eingetragene Tabelle per Makro von Excel über Lotus Notes an die Empfänger senden möchte. Es klappt soweit wie folgt man sehen kann. Aber Ich möchte gerne feste E-Mail Adressen in VBA eintragen, damit keine Abfragen für E-Mail Adresse und Betreff kommen.
Danke...
Ibridode



Sub BlattSenden()
Dim Adresse
Dim Betreff
Sheets("Tabelle").Copy
Adresse = InputBox("Geben Sie E-Mail Adresse:")
Betreff = InputBox("Betreff:")
ActiveWorkbook.SendMail Adresse, Betreff
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Send Mail Excel - Lotus notes
01.10.2003 12:26:24
Andi_H
hi Ibridode,
ändere diese beiden zeilen ab:
Adresse = "name@domain.de"
Betreff = "DEINBETREFF"
wichtig ist nur das beides in " - Zeichen steht.

Gruß
ANdi
Anzeige

132 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige