Excelde yaklaşan tarihleri outlook'a otomatik mail atma

1 2 3
01/11/2010, 18:35

erdinc_1982

İyi günler;

Saygıdeger arkadaşlar umarım dogru yere konu açmışımdır.

Gemilere çeşitli ekipmanlarda servis vermekteyim( can salı,filika,yangın tüpü ... vs)
Hazırladıgım bir excelde servisi yaklaşan gemilerin servis tarihine 45 gün öncesinden tarihin bulundugu hücre rengini sarı,30 gün öncesinden tarihin bulundugu hücre rengini kırmızı olmasını sagladım.

Sorunum şu;

Bu uyarıları 45 gün ve 30 gün öncesinden Excel sayfayı açmadan bana outlook'a otamatik olarak mail atması ve mailde hangi gemiye,hangi servis süresinin yakşaltıgını hatılatması için nasıl bir yöntem izlemem gerekir.

ilginen arkadaşlara şimdiden teşekkür ederim
02/11/2010, 00:33

ogulcan92

Sn:erdinc_1982

Öncelikle sitemize hoş geldiniz Excel çalışmadan bunu yapmak zor mutlaka çalıştırmanız gerekir.Bu işlem için pop3 destekli bir mail adresiniz olması gerekiyor.Maalesef hotmail pop3 desteğini Türkiye'ye vermiyor bunun için gmailden bir mail adresi alıp pop3 için ayarlamanız gerekir.Aşağıdaki örneği inceleyiniz.
02/11/2010, 10:13

erdinc_1982

Ogulcan cevap için çok teşşekür ederim peki Excel dışında bu şekilde bir tablo oluşturabılecegım ve çalıştırmadan yukarda bahsettigim işi yapabilecek bir program varmı.(hatırlatma programı gibi)
03/11/2010, 22:26

ogulcan92

Sn:erdinc_1982
Hatırlatma ve mail göndermek için mutlaka programın çalışması gerekir.
24/01/2011, 11:38

srht1907

göndereceğim e-mail adresini nereye yazmam gerekiyor?
23/02/2011, 11:44

ogulcan92

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
1 2 3