Einen Bereich per Mail senden

Mit diesen VBA-Code kann man einen Teil einer Tabelle per Mail versenden.
Dies klappt nur mit Outlook, da es mit dem Office-Programm direkt verbunden ist.

Sub Send_Range()

'Nur einen Bereich versenden

Dim I As Integer
Dim Empf As String
Dim SendRange As Range

Empf=name@domain.com
SendRange="A1:F100"


'Tabelle1.Cells(1, 1).Value = "Send from: " & Application.UserName

ActiveSheet.Range(SendRange).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
      .Introduction = "Mail-Bemerkung"
      .Item.To = Empf
      '.Item.cc = "name@domain.com"
      '.Item.bcc=
      .Item.Subject = "Mail-Title"
      .Item.Send
End With

End Sub

Share

You may also like...

Schreibe einen Kommentar

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr darüber, wie deine Kommentardaten verarbeitet werden.