Macro voor automatische email

[Arito]

Ik heb een sheet waarvoor ik een macro wil maken om het automatisch te emailen. Ik heb de onderstaande macro van internet kunnen plukken, maar ik wil graag dat als onderwerp van de email ipv "Datum + TEXT" de datum van vandaag en een zelfgekozen text komt. Het zou ook mooi zijn als ik als onderwerp een cel uit de sheet kan doen (bijvoorbeeld A100, waarin dan de text staat die ik wil hebben als onderwerp)

Volgens de onderstaande macro wordt er een email gestuurd met als onderwerp: "Datum + TEXT". In plaats van de text "Datum" wil ik dus in datumformat de huidige datum.

Iemand die me verder kan helpen?

Sub Send_Range()
   
   ActiveSheet.Range("A1:B5").Select

   ActiveWorkbook.EnvelopeVisible = True
   
   With ActiveSheet.MailEnvelope
      .Introduction = ""
      .Item.To = "email adres"
      .Item.Subject = "Datum + TEXT"
      .Item.Send
   End With
End Sub

 

[BramB2]

Ik heb het niet kunnen testen maar het is maar een ingeving:

Sub Send_Range()
   
   ActiveSheet.Range("A1:B5").Select

   ActiveWorkbook.EnvelopeVisible = True
   
   With ActiveSheet.MailEnvelope
      .Introduction = ""
      .Item.To = "email adres"
      .Item.Subject = "(A100) + (A101)"
      .Item.Send
   End With
End Sub

In A100 zet je dan de formule: =NU()
Speel er probeer er maar een beetje mee!

 

[richard1970]

Probeer eens:

 .Item.Subject = Date & " " & ActiveSheet.Range("A100").Value

Richard

 

[Arito]

Beide bedankt. De code van Richard werkt perfect, die van Bram kreeg ik niet aan de praat.

:thumb:

 

[DCWDPT]

Beide bedankt. De code van Richard werkt perfect, die van Bram kreeg ik niet aan de praat.

:thumb:

Als je tevreden bent, zet de vraag dan even op 'opgelost' aub

:thumb:

 

[Arito]

Excuses, ik dacht dat ik dat al gedaan had.