Hallo zusammen,
ich benötige Eure Unterstützung, ich komme nämlich nicht weiter.
Wenn in der Zelle C10 z. B. Erstes-Interview steht, dann sollen, nachdem auf eine Schaltfläche geklickt wird, entsprechende Bereiche/Zellen als E-Mail versendet werden. Leider kann ich aber nicht mehrere Bereiche (die von einander getrennt sind, als eine E-Mail versenden.
Was mach ich falsch?
Vielen Dank vorab.
Mein Code:
Sub Mail_Versand()
Sheets("Template").Select
If Range("C10").Value = "Kaffee-Date" Then
ActiveSheet.Range("B12:D21").Select
End If
If Range("C10").Value = "Erstes-Interview" Then
ActiveSheet.Range("B23:D23,B26:D33").Select
End If
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = "xxx"
'.Item.cc =
'.Item.bcc =
.Item.Subject = Range("C10").Value & " / Bitte um weitere Bearbeitung"
.Item.Send
End With
End Sub
|