Excelle Belirlenen Zamanda Otomatik Mail Gonderme


[quote author=”2008model”]EĞERLİ ARKADAŞLAR.
OUTLOOK İÇİN MAKROM VAR.ANCAK BEN İSTEĞİM BİR SAATE BU MAİLİ HER GÜN OTOMATİK OLARAK GÖNDERMEK İSTİYORUM.BUNU NASIL YAPABİLİRİM.MAKROYA ZAMAN İLAVE ETMEM GEREKLİ SANIRIM.KULLANDIĞIM MAKRO :
Sub SHİFTGÖNDER()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = “genelmd.@smallbusiness.local.”
.Subject = “HAFTALIK SHİFT”
.Body = “AYLIK PUANTAJ”
.Attachments.Add “C:UsersŞEMSETTİN AKKOYUNDesktopSHİFT.xls”
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub
[/quote]
Cevap:

Sub otomatik()

Application.OnTime _

TimeValue("06:33 pm"), "mail_yolla"

End Sub

Sub mail_yolla()

user = Environ("UserName")

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Introduction = ""

.Item.To = "MUSTAFA ASLAN;"

.Item.cc = ""

.Item.Subject = "HAFTALIK SHIFT"

.Item.Body = "AYLIK PUANTAJ"

.Item.attachments.Add "C:Documents and Settings" & user & "Desktopshift.xlsx"

.Item.Send

End With

ActiveWorkbook.EnvelopeVisible = False

End Sub

eklinde calistirirsaniz istediginiz saatte mail atacaktir. 06:33 pm icin denedim 

haftaici gondermek icin yahut diger sartlariniz icin ilk kodda if yapisi ile kriterlestirerek calismasini saglayabilirsiniz..

If Weekday(Date, vbMonday) = 6 Or Weekday(Date, vbMonday) = 7 Then GoTo son

Application.OnTime _

TimeValue(“06:47 pm”), “mail_yolla”

son:

Seklinde yazip workbook`un open olayina yazarsaniz skala olarak ayarlayacaktir..

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Excelle Belirlenen Zamanda Otomatik Mail Gonderme” için 2 yorum

  1. HERKESE SELAMLAR
    BASİT BİR EXCEL DOSYAM VAR VE HERGÜN DEĞİŞİKİK YAPIYORUM
    BUNUN HER AKŞAM BELİRLEDİĞİM MAİL ADRESİME OTOMATİK GÖNDERİLMESİNİ İSTİYORUM
    YUKARIDAKİ MAKROYU YAPTIM AMA OLMADI.
    ACABA BAŞKA BİR PROBLEMMİ VAR
    YARDIMLARINIZI BEKLİYORUM

zba için bir cevap yazın Cevabı iptal et

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


5 + 3 =