Clever-Excel-Forum

Normale Version: Email Empfänger ändern?
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Moin Leute,

habe ein Makro welches Email verschickt. Allerdings sollte die email immer an unterschiedliche Leute gehen. Aktuell muss ich immer das Makro umschreiben, wenn ich eine Email versenden möchte. Auschnitt aus dem Makro. 
Code:
With Destwb
       .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
       On Error Resume Next
       With OutMail
           .to = "XXXXXX@email.com"
           .CC = ""
           .BCC = ""
           .Subject = "TEEST"
           .Body = "Anbei ein Test einer Tabelle, bitte nicht weiter beachten"
           .Attachments.Add Destwb.FullName
           'You can add other files also like this
           '.Attachments.Add ("C:\test.txt")
           .Send   'or use .Display
       End With
       On Error GoTo 0
       .Close savechanges:=False
   End With

Kann ich es einstellen, das er immer die Email Adresse aus Zelle A1 zb. nimmt oder hat jemand einen anderen Vorschlag. Vllt über ein Eingabefeld wenn man auf senden drückt?
Hallo,

verzeih mir bitte, aber ... ich fühl mich irgendwie veräppelt von der Anfrage ...


Code:
.to = Worksheets("Tabelle1").Range("A1").Text
Hey,

Danke dir, aber manchmal sieht man den Baum vor lauter Bäumen nicht.