PDA

Orijinalini görmek için tıklayınız : AKTİF AYFAYI MAİL OLARAK NDERMEK



Osman SUMBULOGLU
02.11.2004, 10:37
7 sayfalık bir excel dosyam var. 1. sayfa giriş diğerleri gizli durumda. kullanıcı giriş sayfasından ne yapacaksa onu seçiyor ve bundan sonra giriş dahil tüm safyalar kapanıp seçtiği sayfa açılıyor.
Benim istediğim şu seçilen sayfadaki bir ikona tıkladığında sadece seçilen sayfayı Outlook'a atac yapsın bunu yaparkende sayfa adı tarih saat göstersin.
Saygılarımla

Serkan Düzcan
02.11.2004, 19:55
Referanslardan Microsoft OutLook X.X Object Library seçili olmalı.


Sub gonder()
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Dim kitap As Workbook, sayfa As Worksheet
Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(0)
Set sayfa = ActiveSheet
Application.ScreenUpdating = False
sayfa.Copy
Set kitap = ActiveWorkbook
kitap.SaveAs sayfa.Name & " " & Format(Now, "dd-mm-yy hh.mm.ss") & ".xls"
With posta
.To = "kişi"
.CC = ""
.BCC = ""
.Subject = "konu"
.Body = "Mesaj"
.Attachments.Add kitap.FullName
End With
With kitap
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With

posta.Display
End Sub

posta.Display yerine posta.Send komutunu kullanırsanız mail direk olarak gönderilir.

Osman SUMBULOGLU
04.11.2004, 18:13
Serkan bey
Program calışınca 2 satırda app As Outlook.Application üzerine gidiyor ve aşağıdaki hatayı veriyor
Cpmpile error;
User-defined type not defined

Salih Koca
04.11.2004, 18:24
Referanslardan Microsoft OutLook X.X Object Library seçili olmalı.

Osman SUMBULOGLU
08.11.2004, 14:11
nasıl sececeğim anlamadım

Salih Koca
08.11.2004, 16:59
Merhaba.

VBE penceresinde Tools menüsünden References komutu ile seçebilirsiniz.

Osman SUMBULOGLU
09.11.2004, 18:48
İLGİNİZE TEŞEKKÜ EDERİM OLDU.
SAYGILAR

Osman SUMBULOGLU
10.11.2004, 11:06
Serkan bey
bir şey fark ettim
Program gonderilen sheet in adini veriyor Attachments da

Şu olursa çok iyi olacak
Dosya Adı: Örnek.xls
Gönderilen sayfa:Sayfa2 olsun
Attachments da şu olabilirmi
Dosya adı yani Örnek tarih saat.xls şeklinde
Teşekkür ederim

Serkan Düzcan
10.11.2004, 14:40
Kitap ismiyle gönderen hali;


Sub gonder()
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Dim kitap As Workbook, sayfa As Worksheet
Dim kitapismi As String
Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(0)
Set sayfa = ActiveSheet
kitapismi = ActiveWorkbook.Name
Application.ScreenUpdating = False
sayfa.Copy
Set kitap = ActiveWorkbook
kitap.SaveAs kitapismi & " " & Format(Now, "dd-mm-yy hh.mm.ss") & ".xls"
With posta
.To = "kişi"
.CC = ""
.BCC = ""
.Subject = "konu"
.Body = "Mesaj"
.Attachments.Add kitap.FullName
End With
With kitap
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With

posta.Display
End Sub

Osman SUMBULOGLU
10.11.2004, 15:06
Sayın Serkan bey ilgi ve alakanıza çok teşekkürler tam istediğim gibi harikasınız..
saygılar
osman