IF + .attachments.add
30.03.2021 13:51:17
richard
ich bräuchte hierzu ein wenig Hilfe.
With MyMessage
.To = Workbooks("File.xlsm").Sheets("Email").Cells(i, 2)
.cc = Workbooks("File.xlsm").Sheets("Email").Cells(i, 3)
.Subject = Workbooks("File.xlsm").Sheets("Email").Cells(i, 4)
.BODY = Workbooks("File.xlsm").Sheets("x").Cells(i, 5) & Chr(10) & Chr(10) & Workbooks("File.xlsm").Sheets("Email").Cells(i, 6) & Chr(10)
.BODY = Workbooks("File.xlsm").Sheets("x").Cells(i, 6) & Chr(10) & Chr(10) & Workbooks("File.xlsm").Sheets("Email").Cells(i, 7) & Chr(10)
.attachments.Add "PFAD "\Datei" & ".xlsx"
.Display
ich schaffe es soweit dass ich ein Mail öffne mit einem Anhang.
ich würde nun brauchen, dass ich eine IF + Anhang Zeile schreibe.
kurz gesagt:
wenn das Feld (Z) befüllt ist dann hänge ich die Datei (Z) ins mail. wenn (Z) nicht befüllt ist, kein anhang
wie genau kann ich das schreiben?
LG :)