Office: Email Adressen

Moin Profis,
könnt ihr mir erklären wo dieser Code die Email Adressen herbekommt?

Sub Schaltfläche5_Klicken()

'Vor dem Senden speichern
Dim strDateiname As String
strDateiname = Range("B54").Value



'Pfad anpassen
ActiveWorkbook.SaveAs ("M:\AUDIT\3_Audits u. Maßnahmen\Zentrale Maßnahmenpläne Betriebe\C003 - Minden\Mängelmeldungen" & strDateiname)

'An Auftragssteuerung senden
Dim E$, B$
'Empfänger anpassen it-auftragssteuerung@minden.edeka.de
B = Range("A7").Value
E = Range("A54").Value
Application.Dialogs(xlDialogSendMail).Show E, B
'ActiveWorkbook.Close

End Sub


Vielen dank

 

Zelle A54 enthält den Empfänger
Zelle A7 enthält den Betreff der Mail
und B54 den Dateinamen zum speichern

 

Vielen Dank,
hab es gefunden.