mail makro problemi

[NUSRET69]

ekteki mail makro gonderme orneginde;
1) mail gonderirken virus tarama programini calismamamasini istiyorum.
yuzlerce dosyanin gonderilmesi zaman aliyor.ama asil onemli olan mail gideken
standart mesaj eklenmesini istiyorum.

ORNEK;

Saygilarimizla,
Finance&Audit dep.
XXX

Yardimci olacak arkadaslara simdiden cok tesekkurler,

 

[DolceVita]

nusret ben de daha yeni bu konuya bakmıştım. aşağıda kodu yazıyorum ona göre bi bak çıkaramadığın yer olursa tekrar sorarsın. ama kodu çalıştırmadan önce express clickyes diye bi program var onu yüklemen gerekiyor.
internette ara bulursun. kodlar aşağıda. ben saat başı otomatik mail yoluyorum sen kendine göre yontarsın artık.


Sub AUTO_OPEN()
Application.OnTime CDate("09:00:00"), "SendEmail" '+ TimeValue("00:09:00"), "SendEmail"
Application.OnTime CDate("10:00:00"), "SendEmail" '+ TimeValue("00:09:00"), "SendEmail"
Application.OnTime CDate("11:00:00"), "SendEmail" '+ TimeValue("00:09:00"), "SendEmail"
Application.OnTime CDate("12:00:00"), "SendEmail" '+ TimeValue("00:09:00"), "SendEmail"
Application.OnTime CDate("13:00:00"), "SendEmail" '+ TimeValue("00:09:00"), "SendEmail"
Application.OnTime CDate("14:00:00"), "SendEmail" '+ TimeValue("00:09:00"), "SendEmail"
Application.OnTime CDate("15:00:00"), "SendEmail" '+ TimeValue("00:09:00"), "SendEmail"
Application.OnTime CDate("16:00:00"), "SendEmail" '+ TimeValue("00:09:00"), "SendEmail"
Application.OnTime CDate("17:00:00"), "SendEmail" '+ TimeValue("00:09:00"), "SendEmail"
Application.OnTime CDate("18:30:00"), "SendEmail" '+ TimeValue("00:09:00"), "SendEmail"

End Sub


Sub SendEmail()

Dim objOL As Object
Dim objMail As Object
Dim objwShell As Object
Dim strEmail As String

'Set your email address here
strEmail = "falan@filan.com"

'Turn on error handling
On Error GoTo Cleanup

'Activate ClickYes
Set objwShell = CreateObject("wscript.shell")
objwShell.Run ("""C:\Program Files\Express ClickYes\ClickYes.exe"" -activate")

'Bind to Outlook
Set objOL = CreateObject("Outlook.Application")

'Create a new email and send it
Set objMail = objOL.CreateItem(0) '0=olmailitem
With objMail
.To = "adres@mail.com.tr"
.Subject = "Deneme"
.Body = "üretim takip dosyası ektedir."
.Attachments.Add "C:\Documents and Settings\planlama2\Desktop\üretim takip.xls"
.Save
.Send
End With

'Stop Clickyes
objwShell.Run ("""C:\Program Files\Express ClickYes\ClickYes.exe"" -stop")

Cleanup:
'Release all objects
Set objMail = Nothing
Set objOL = Nothing
Set objwShell = Nothing
On Error GoTo 0

End Sub

 

[bestenigar]

Merhabalar

Ben üretim takip programında, bir tarihin geçmesi durumunda otomatik olarak belirlediğim adrese mail gönderilmesini istiyorum. Bunu nasıl yapabilirim?

 

[hamitcan]

Merhabalar

Ben üretim takip programında, bir tarihin geçmesi durumunda otomatik olarak belirlediğim adrese mail gönderilmesini istiyorum. Bunu nasıl yapabilirim?

Linki inceleyin.http://www.excel.web.tr/showthread.php?t=62043&highlight=mail