(23/02/2011, 11:44)ogulcan92 yazdı: Sn:srht1907
Alt F11 ile kod sayfasına geçerek kod içerisinde açıklama olan yerde mail adresinizi yazacaksınız.
Private Sub CommandButton1_Click()
ActiveSheet.Range("A1:C1").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Günü Gelenler"
.Item.To = "xxxxxxxx@gmail.com" 'Email adresiniz buraya yazılacaktır
.Item.Subject = "Bakım"
.Item.Send
End With
End Sub
selamlar ,
excel sürekli açık bıraksam , hatırlatma tarihinde butona tarih geldiğinde nasıl aktifleştirme yapa bilirim,
Excelde yaklaşan tarihleri outlook'a otomatik mail atma
Konuyu Okuyanlar: 2 Ziyaretçi