otomatik e-mail gönderme

[vitaminb1]

ben excel de bi dosya hazırladım.bunun her hafta cuma günü saat 10.00 da belirlediğim benim adresimden(benimmsn@hotmail.com) bir adrese örnek(müdürlük@hotmail.com) göndermek istiyorum.nasıl yapabilirm.

 

[hamitcan]

Not: Dosyayı açtığınızda makro çalışacaktır.

Sub auto_open()
If Format(WorksheetFunction.Weekday(Date), "dddd") = "Cuma" Then
If Format(Time, "hh:mm") >= "10:00" Then
Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
    With NewMail
    .To = "aaa@aaa.com"
    .Subject = "deneme"
    .Body = "Sayın Yetkili Bu mail ekte görmüş olduğunuz mail bilgi için gönderilmiştir."
    .Attachments.Add "C:\deneme.txt" 
    .Send
    End With
    Set NewMail = Nothing
    Set OutApp = Nothing
End If
End If
End Sub

 

[bulentkars]

Böyle bir çalışma benim de işime yarıyor fakat çalıştıramadım dosyaya ekleyıp kaydermıssınız.birde ben microsoft office outlook kullanıyorum

 

[hamitcan]

Referanslardan "Microsoft Outlook XX.X Object Library" ekleyin.

 

[bulentkars]

New Outlook.Application hata verıyor

 

[hamitcan]

Referansı eklediniz mi ?

 

[bulentkars]

bir de bende Referanslardan "Microsoft Outlook XX.X Object Library" ekleyin yok

 

[bulentkars]

bende refanslarda yok jpg ekte

 

[hamitcan]

Ben versiyon belirtmedim. Bendeki referans; Microsoft Outlook 12.0 Object Library. Sizdeki farklı olabilir.

 

[hamitcan]

Kodu, biraz değiştirdim. Dosya, saat 10:00 dan önce açılırsa, makro, saat 10:00 a gelindiğinde çalışacaktır.

Sub auto_open()'Dosya açıldığında otomatik çalış
    If Format(WorksheetFunction.Weekday(Date), "dddd") = "Cuma" Then 'Haftanın günü Cuma ise
    If Format(Time, "hh:mm") >= "10:00" Then'Saat 10 yada 10 dan büyük ise
    mailat'maili gönder
    Else
    Application.OnTime TimeValue("10:00:00"), "mailat" ''Saat 10 dan küçük ise tam 10 da mail at
    End If
End Sub
Sub mailat()
Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
    With NewMail
    .To = "aaa@aaa.com"
    .Subject = "deneme"
    .Body = "Sayın Yetkili Bu mail ekte görmüş olduğunuz mail bilgi için gönderilmiştir."
    .Attachments.Add "C:\deneme.txt"
    .Send
    End With
    Set NewMail = Nothing
    Set OutApp = Nothing
End If
End Sub

 

[vitaminb1]

hamitcan üsdadım ben bu kod işini çozemedim. dosyayı tekrar ekledim. bi bakabilirmisiniz.müsaitseniz şu işi adım adım tarif edermisiniz.

 

[hamitcan]

10 numaralı mesajda açıklama yaptım.

 

[vitaminb1]

şu bölümleri anlayamadım.
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "aaa@aaa.com"
.Subject = "deneme"
.Body = "Sayın Yetkili Bu mail ekte görmüş olduğunuz mail bilgi için gönderilmiştir."
.Attachments.Add "C:\deneme.txt"
bendeki bilgiler
GÖNDEREN MAİL:cidedevlethastanesi@hotmail.com
ALICI ersonel_37@hotmail.com
BELGENİN KONUMU:H:\Documents and Settings\Belgelerim
BELGENİN ADI:CİDE AKTİF ÇALIŞAN FORMU

 

[hamitcan]

Set OutApp = New Outlook.Application 'Yeni bir outlook uygulaması oluştur.
Set NewMail = CreateItem(olMailItem)' Yeni bir mail oluştur
With NewMail
.To = "aaa@aaa.com" 'gönderceğin mail adresini gir
.Subject = "deneme" 'konuyu gir
.Body = "Sayın Yetkili Bu mail ekte görmüş olduğunuz mail bilgi için gönderilmiştir." ' gövde metni
.Attachments.Add "C:\deneme.txt" 'ekleyeceğiniz dosyanın yolu ve ismi

 

[unur]

Mrb, Arkadaşlar;
Sitede yapmış olduğum araştırmada benim istediğime en uygun olanı bu başlığı bulduğum için buradan yazdım.

Burada kodda sadece cuma günü saat 10:00 otomatik gönderme yapılmış, bunu hafta için her gün saat 10:00 iki ayrı mail adresine gönderebilmek için kodlarda nasıl bir revizyon yapılması gerekir.
Yardımcı olacak arkadaşlara şimdiden Teşekkürler.

 

[unur]

Arkadaşlar yukarıda yazdığım konu hakkında fikri olan yok mu?
Teşekkürler,

 

[unur]

Güncellemek için

 

[hamitcan]

Böyle deneyin.

Sub auto_open() 'Dosya açıldığında otomatik çalış
'    If Format(WorksheetFunction.Weekday(Date), "dddd") = "Cuma" Then 'Haftanın günü Cuma ise
    If Format(Time, "hh:mm") >= "10:00" Then 'Saat 10 yada 10 dan büyük ise
    mailat 'maili gönder
    Else
    Application.OnTime TimeValue("10:00:00"), "mailat" ''Saat 10 dan küçük ise tam 10 da mail at
    End If
End Sub
Sub mailat()
Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
    With NewMail

    .to = "aaa@qqq.com;bbb@ccc.com"
    .Subject = "deneme"
    .Body = "Sayın Yetkili Bu mail ekte görmüş olduğunuz mail bilgi için gönderilmiştir."
    .Attachments.Add "C:\deneme.txt"
    .Send
    End With
    Set NewMail = Nothing
    Set OutApp = Nothing
'End If
End Sub

 

[unur]

Hamit Bey ilginize Teşekkürler. Ancak;

Sub mailat()
Set OutApp = New Outlook.Application

satırında New outlook.application satırında proplem gösteriyor.

Not: İnternete bağlı bir bilgisayardaki outlooku değil kurum içinde kullandığımız bir outlok için istemiştim, farkeder mi?

Tekrar incelerseniz sevinirim

 

[hamitcan]

Referanslardan "Microsoft Outlook XX.X Object Library" eklemeniz gerekiyor.