Send Mail Excel - Lotus notes
01.10.2003 12:23:23
ibridode
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