- Katılım
- 8 Ekim 2009
- Mesajlar
- 18
- Excel Vers. ve Dili
- 2003 English
Merhaba
İş yerimizde öneri sistemini mail üzerinden yürütmeye karar verdik.
Excel halinde bulunan öneri formunuda gönder tuşuna basıldığı an aşağıdaki komutlar çalışmaktadır.
Public Sub mail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Cells(Cells(1, 49), 48)
.CC = "ozdery@hotmail.com.tr"
.BCC = ""
.Subject = "ÖNERİ"
.Body = Cells(1, Cells(Cells(1, 49), 47) + 41)
.Attachments.Add ActiveWorkbook.FullName 'dosyanın isim kısmı gibi
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Bu komut dosya üzerinde gönder Commandbutton'a basıldığında çalışmaktadır.
Ancak çalışanların bu formda kaydetme yetkisi bulunmadığı için mail gönderilen form boş olarak gitmektedir. İhtiyacım olan dosya mail olarak gönderirken kaydetme yetkisine gerek olmaksızın o an açık ve içi dolu olan öneri formunun gönderilmesi.
Çok geniş kapsamlı bir çalışma yaptık .Yeterince açıklayamamış olabilirim soruları yöneltirseniz daha iyi açıklamaya çalışırım.
Teşekkürler
İş yerimizde öneri sistemini mail üzerinden yürütmeye karar verdik.
Excel halinde bulunan öneri formunuda gönder tuşuna basıldığı an aşağıdaki komutlar çalışmaktadır.
Public Sub mail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Cells(Cells(1, 49), 48)
.CC = "ozdery@hotmail.com.tr"
.BCC = ""
.Subject = "ÖNERİ"
.Body = Cells(1, Cells(Cells(1, 49), 47) + 41)
.Attachments.Add ActiveWorkbook.FullName 'dosyanın isim kısmı gibi
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Bu komut dosya üzerinde gönder Commandbutton'a basıldığında çalışmaktadır.
Ancak çalışanların bu formda kaydetme yetkisi bulunmadığı için mail gönderilen form boş olarak gitmektedir. İhtiyacım olan dosya mail olarak gönderirken kaydetme yetkisine gerek olmaksızın o an açık ve içi dolu olan öneri formunun gönderilmesi.
Çok geniş kapsamlı bir çalışma yaptık .Yeterince açıklayamamış olabilirim soruları yöneltirseniz daha iyi açıklamaya çalışırım.
Teşekkürler