Tarihi gelmiş girdiyi mail olarak göndermek?

iyi günler,

Tarihi gelmiş girdiyi mail olarak göndermek?
örnekleri inceledim nasıl mail gönderilir buldum ancak istediğim tarihi geçen satırı bütün bilgileriyle(ad,soyad,adres vb.)göndermek yardımcı olursanız sevinirim..

Bahsettiğiniz "Bütün Bilgileri" içeren örnek uygulamanızı ekleyiniz.

uygulamayı ekleyemedim ...ama kısmen şu şekilde

ad soyad - alınan tarih-satılan ürün kodu-servise verilme tarihi- vb...

bilgilerin soldan sağa sıralandığı bir listem var...alınan tarih ile servis tarihi arası gün sayısı farkına göre sadece ilgili satırı mail atmasını istiyorum...

Private Sub gonder()

ActiveSheet.Range("b2:m2").Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Introduction = "Günü Gelenler"

.Item.To = "xxxx.com" 'Email adresiniz

.Item.Subject = "Bakım"

.Item.Send

End With

End Sub

bu sekilde bir kod ile mail atabiliyorum ama istediğim gibi atamadım..

Sn:laterna
Yukarıdaki kodlarda bir sıkıntı yok yapamadınız nedir? Aynı zamanda konunuz aşağıdaki linte bulunan konu ile aynıdır.

Excelde yaklaşan tarihleri outlook'a otomatik mail atma