Pc açıldığında otomatik mail [SORU-ÇÖZÜLDÜ]

[doguylmz]

Merhabalar efendim.

Ben Sizin sitenizden çok şey öğrendim.Uyguladım. Yaptım.
Yardım isteyenlere sabır diliyorum..(Elbet biri yardımcı olacaktır.)
Yardım edenlere Allah Razı olsun diyorum.Emeklerinize sağlık.
Forumda arayıp bulabilirsin diyebilirsiniz. Ama inanın aradım çok konuya baktım.Her atılan cevabı okudum neredeyse ama VB ve excel hakkında siz üstadlar kadar bilgim olmadı için yapamadım
Konu yanlış yerdeyse şimdiden özür dilerim.

Benim sorum şöyle efendim,

Ben biraz uzun yazabilirim. Daha detaylı anlaşılsın diye. Belki de cevabı kısa , yapılışı kolaydır. Ama benim VB ile ilgili herhangi bir bilgim olmadığından yardım edecek arkadaşların da emeği boşa gitmemesi açısından detaylı yazacağım.

Örnek olarak,

ben işyerindeyim diyelim ve evimde de pc var. O pc açıldığında bana otomatik olarak mail gelsin istiyorum.

DETAYLI : excel açıldığında otomatik olarak mail atsın. ( boş mail ' de olur ) en azından mail geliş saatinden kaçta pc'nin açıldığını öğrenebilirim.

pc açılacak da excel açılmazsa nereden bileceksin diyenler olabilir.


Buna da şöyle bir çözüm buldum . " Çalıştır > shell:startup " buraya excel'i kopyaladıktan sonra pc başladığında otomatik olarak excel de açılacak ve açılır açılmaz mail de atacak.(tabi ki yardımcı olursanız) Eğer outlook da açılması gerekiyor derseniz. Onu da " Çalıştır > shell:startup " buraya eklediğimizde sorun olmaz.İkisi de aynı anda açılır.

Ekstradan istek ( zorunlu değil.Yapılışı kolay mı zor mu bilmiyorum o yüzden) ;

1- Excel otomatik olarak açılacak tamam ama maili gönderdikten sonra otomatik olarak excel kapanabilir mi ?
2-Konuya otomatik olarak " Başlangıç saati : 00:00 ( saati otomatik olarak kendisi atacak )

Böyle birşey mümkünse excel'i hazırlayıp paylaşmanızı ve yardımlarınızı rica ediyorum.

Şimdiden teşekkürler , emeklerinize sağlık.

 

[Emir Hüseyin Çoban]

. . .

Exceli açmak şart mı ?
Outlookunda VBA menüsü vardır. Ordan da mail gönderme işlemini yaptırabiliriz.

Outlook makroları aktif olamlı.

Outlookta ALT+F11 tuşlayın.
Açılan VBA menüsünden, ThisOutlookSession çift tıklayın.
Açılan kod alanına aşağıdaki kodları yapıştırın.
Kaydedip, kapatın.

Private Sub Application_Startup()
On Error Resume Next
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "[B]kime@gmail.com[/B]" ' mailin gideceği adres
'.CC = ""
'.BCC = ""
'.HTMLbody =
.Subject = "Açılış Bilgileri : " & Now
.Save
'.Display   'göndermek için .Send
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub

. . .

 

[doguylmz]

Emeğiniz için teşekkür ederim.

Excel olsaydı iyi olurdu. Çünkü , bunu 1'den fazla pc'de yapacağım ve outlook express - 2003- 2007 çeşitli pc'ler var. Amacım her pc açıldığında açılış saatleri belirleyeceğim adreslere gitsin. Outlook 2003'e göre yapmışsınız ( teşekkür ederim. )

Kısaca ; outlook 2003'ü açtım ALT+F11 yaptım. ThisOutlookSession 'a çift tıkladım sağ tarafa kodu kopyaladım yapıştırdım. ( gönderilecek mail adresini değiştirdim sadece) Başka herhangi birşey yapmama gerek yok sanırım sizde o kadar demişsiniz. Outlook'u kapadım açtım mail gelmedi ? PC'yi mi kapatıp açmam gerekiyor ?

Mail gönderilmesi için sanırım sizin verdiğiniz bilgiler dahilinde sadece outlook açılsa yeter dimi ?

ve çalıştır dendiğinde " The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros. " bu hatayı vermektedir.
Fazla bilgim olmadığından , affınıza sığınıyorum.

 

[Emir Hüseyin Çoban]

. . .

Makro güvenlik seviyesini düşürmeniz gerekiyor.
Forumda aratabilirsiniz. Excel ile aynıdır.

Microsoft outlook ve outlook express de aynı kodlar çalışmaz. Kullanılan programa göre kodlama yapılması gerekir.

. . .

 

[doguylmz]

Çok teşekkür ediyorum.Tüm office programlarında güvenlik seviyesini aşağı düşürünce oldu.Tekrar emeğinize sağlık.

ama resimdeki gibi uyarı çıkıyor her seferinde.Çıkmadan halletme imkanımız var mı ? ve her outlook kapatılıp açıldığında mail gönderiyor.

Sizin yaptığınız da çok iyi , fakat ben bir excel açtığımda adı " açılış.xls " olsun.Ben pc açıldığında bu açılış.xls açılsın( bunu ben halledeceğim ) ve tek istediğim açıldığında otomatik mail atsın. yukarıda verildiği gibi. Herkes farklı outlook sürümü kullandığından sıkıntı olabilir.Her seferinde ayrı sürüme ayrı kod düzenleyemem ve bilmiyorum.

Bu kodu excel'e uyarlayabilir miyiz ? Sanırım excel'den yaptığımızda outlook sürümü farketmeyecek.

 

[Emir Hüseyin Çoban]

. . .

Daha önce verdiğim kodlar, tüm Microsof Office Outlook sürümlerinde çalışır.
Resimdeki hatayı gidermek için, outlook ayarlar ve seçenekler menüsünü biraz karıştırın. Bende de daha önce çıkıyordu. Tam bilmiyorum ama ayarlarını karıştırırken çözmüştüm.

Excelden göndermek için, aşağıdaki kodları excelde boş bir modüle yapıştırın. Kaydedip, kapatın.

Sub auto_open()
on error resume next
Application.ScreenUpdating = False
With Application
.EnableEvents = True
End With
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "kime@gmail.com"
.Subject = "Açılış Zamanı : " & Now
.HTMLbody = ""
'.Attachments.Add
.Save
'.Display   'göndermek için .Send
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
Application.ScreenUpdating = True
End Sub

. . .
. . .

 

[doguylmz]

Sayın Hüseyin Bey ,

İlginiz alakanız için çok teşekkürler , emeklerinize sağlık.

Sizin bilgileriniz üzerine otomatik kapatmayı da ekledim. Çok teşekkür ederim tekrar tekrar.

Fakat o resimdeki yani alttaki resimde gördüğümüz soruna bir türlü çözüm bulamadım.

Herhalde , kimse öyle bir hatayla karşılaşmadı ya da outlook'un standart bir özelliği ve önüne geçemiyoruz sanırım ?

 

[Emir Hüseyin Çoban]

. . .

Mailler geldi.

Bu uyarı aşılabiliyor. Bende excelden mail gönderme işlemleri kullanıyorum.
Bir kaç defa uyarı çıktı.
Güvenlik merkezindeki ayarları değiştirerek deneyiniz.
Ben deneme yanılma yöntemi ile aşmıştım.

. . .

 

[Emir Hüseyin Çoban]

. . .

. . .

 

[doguylmz]

2007 ve 2010 için buldum çözümleri. Fakat 2003 için bulamadım.
Yabancı sitelerde yazıyor sanki fakat anlamıyorum.

 

[doguylmz]

Evet buydu Programlı Erişim. 2007 ve 2010 kullananlara güzel bir kaynak olacak paylaşımınız. Ama 2003 kullananlar :???:

 

[muygun]

Merhaba;
Ofis 2003 için açılan exceli auto mail gönderme
Makro güvenliğini yüksek seviyeye çekerek dosyayı açın.
vba kısmına ve Thisworkbook'a geçin.
Kodlarda xxxxxx olan kısımları düzenleyin.

göndermek için kullanılan mail adresi,
göndermek için kullanılan adresin şifresi
giden adres
giden adres

Yani kodlarda 4 alanı düzenleyip (bu satırların sonunda remli açıklamalar var) (her ihtimale karşı) makroları kilitleyin.
(açılışta excel ve ekli uygulamanın açılmasını artık kendiniz halledersiniz)

İyi çalışmalar.

NOT: Kodlar alıntıdır.

 

[doguylmz]

Sayın muygun ,

İlginiz ve alanız için çok teşekkürler ,

Sorunumu çözdüm. ( Sayın , Hüseyin Çoban ' a çok teşekkürler. )

Öncelikle kullandığım kod ;

Sub auto_open()
on error resume next
Application.ScreenUpdating = False
With Application
.EnableEvents = True
End With
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "xxxx@example.com"
.Subject = "Açılış Zamanı : " & Now
.HTMLbody = ""
'.Attachments.Add
.Save
'.Display   'göndermek için .Send
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
Application.ScreenUpdating = True
ThisWorkbook.Save
Application.Quit
End Sub

Ve 2003'de çıkan hata ( aşağıdaki resimde ) 'yı birtek şu şekilde çözülebiliyormuş. Yabancı sitelerden buldum.

Ekteki programı indiriyorsunuz ve kuruyorsunuz. Ayarları yapıyorsunuz ve artık öyle EVET-HAYIR sorusu sormuyor. Sorunsuz bir şekilde mail gönderebiliyorsunuz ve excel otomatikmen kapanıyor.Elemanlarının pc açılış saatinden işe başlangıç saatini az da olsa öğrenebilirsiniz. ( eğer aranızda kilometreler varsa )
Ayrıca "Çalıştır > shell:startup " ' a exceli eklemeyi ve pc'lerde OFFİCE 2003 olduğundan emin olunuz..
Emeği geçen herkese çok teşekkürler.

 

[doguylmz]

Merhaba;
Ofis 2003 için açılan exceli auto mail gönderme
Makro güvenliğini yüksek seviyeye çekerek dosyayı açın.
vba kısmına ve Thisworkbook'a geçin.
Kodlarda xxxxxx olan kısımları düzenleyin.

göndermek için kullanılan mail adresi,
göndermek için kullanılan adresin şifresi
giden adres
giden adres

Yani kodlarda 4 alanı düzenleyip (bu satırların sonunda remli açıklamalar var) (her ihtimale karşı) makroları kilitleyin.
(açılışta excel ve ekli uygulamanın açılmasını artık kendiniz halledersiniz)

İyi çalışmalar.

NOT: Kodlar alıntıdır.

Gmail kullananlar için güzel bir çalışma olmuş. Tekrar emeğinize sağlık. Firma sahibi olduğumuzdan kendi domainimiz üzerinden webmail kullanmaktayız. Teşekkürler.

Ayrıca Güvenlik Seviyesini düşürmeyi unutmayınız.