Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: excelden outlooka hatırlatma maili atmak  (Okunma sayısı 4519 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı burc67

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: burç erden
  • Doğum Yılınız: 1988
  • İl / İlçe: zonguldak ereğli
  • Mesleğiniz: mühendis
excelden outlooka hatırlatma maili atmak
« : 01 Ocak 2016, 12:53:25 »
Arkadaşlar merhaba ,
Bir code buldum onunla excelde hazırladım bir sayfayı her gün aynı saatte bana mail olarak hatırlatmasını istiyorum ancak kod hata veriyor bana yardımcı olabilir misiniz?

kod aşağıdaki gibidir;

Sub Auto_Open()
    Application.OnTime TimeValue("12:35:00"), "Mail_Gonderimi"
End Sub

Sub Mail_Gonderimi()

    Dim OutApp As Object
    Dim Outmail As Object
   
    Set OutApp = New Outlook.Application
    Set Outmail = OutApp.CreateItem(0)
   
        With Outmail
            .To = "burcerden@gmail.com"
            .CC = "Buraya CC yapmak istediginiz mail adresini yazın"
            .BC = ""
            .Subject = "Aksiyon takibi hakkında"
            .Body = " Aksiyon takip listesi"
            .Attachments.Add ("C:\Users\burç\Desktop\Burc.xlsm")
            .Send  'or use .Display
        End With
       
    Set Outmail = Nothing
    Set OutApp = Nothing
   
End Sub