Skip to main content

AccessTr.neT


Excelde yaklaşan tarihleri outlook'a otomatik mail atma

erdinc_1982
erdinc_1982
12
25136

Excelde yaklaşan tarihleri outlook'a otomatik mail atma

Çözüldü #1
İ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
Cevapla
Çözüldü #2
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.
.rar Mail.rar (Dosya Boyutu: 8,39 KB | İndirme Sayısı: 754)
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #3
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)
Cevapla
Çözüldü #4
Sn:erdinc_1982
Hatırlatma ve mail göndermek için mutlaka programın çalışması gerekir.
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #5
göndereceğim e-mail adresini nereye yazmam gerekiyor?
Cevapla
Çözüldü #6
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
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da