(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

mer habalar burda adres yaz mak yerıne  excel tablosunda bir  mail listem var orayı nasıl göstere bilirm ordakılere toptan göndersın

Merhabalar,
Benim istediğim tam olarak böyle bir şey ama uygulayamadım. Ben kimyagerim ilaç üzerine çalışıyorum ve deneme ürünlerini belirli sürelerde farklı ortamlarda tutup sonra sonuçlarını yorumluyorum( 25 derecede 3 Ay gibi). Excelde bir tablo yaptım sayıyor otomatik olarak ancak günü gelmeden 1 gün önce bana otomatik anımsatmasını veya mail atmasını istiyorum ama bu makroyu bir türlü çalıştıramadım. yardımcı olabilir misiniz?
şimdiden herkese çok teşekkür ederim

sayın SmArTBy ,


Site Kuralları sayfasını tekrar incelemenizi temenni etmekle birlikte;
Cevaplanmış Sorular kategorisi içerisine taşınıp kapatılmış ve örnek eklemesinin dahi yapılamayacağı bir konuda,mesaj eklemesinde bulunmayınız.

bu konuyu bağlantı göstermek sureti ile sorunuzu ya da talebinizi içerecek yeni bir konu açarak sorununuza çözüm arayabilirsiniz.

böylece,hem bu konunun mesaj yoğunluğunu artırmamış olursunuz hem de benzer soruna maruz kalabilecek olan diğer üyelerin site içi aramalarda alternatif bir konuya da bakınmasını ve incelemesini de sağlamış olursunuz.

konunuza,örnek uygulamanızı;içeriğinde farazi gerçek dışı bilgiler ve 5-10 kayıt barındıracak şekilde eklemeniz de yerinde olacaktır.

uygulamanızda herhangi bir soruna veya hataya maruz kalacak olursanız,bu hata veya sorunların gerek isimlerini ayrıntılı belirterek ya da sorunları net ifade ederek ve gerekse de ekran görüntüleri dahi eklemek sureti ile,çözümler arayabilirsiniz.

katılımcılar tarafından,açacağınız konuda uygun görülecek olan gerekli bilgi ya da örnek paylaşımlarının yapılması da mümkün olacaktır.

bilginize...iyi çalışmalar,saygılar.

selamlar ,

excel sürekli açık bıraksam , hatırlatma tarihinde butona tarih geldiğinde nasıl aktifleştirme yapa bilirim,

(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, 

selam ,

buton yerine sütün rengi sarı vada kırmızı olduğunda mail attıra bilir miyiz ?