Excel dosyasını outlook' tan otomatik gönderemiyorum...

[fakuru]

Aşağıda kodu yazılı olan, otomatik olarak kaydettirdiğim dosyayı outlook ile gönderemiyorum... Bırakın göndermeyi outlook bile açılmıyor...

Nerde hata yapıyor olabilirim?

Dosyayıda gönderdim, belki güzellik yapan bir arkadaş çıkar



Sub Gönder()
On Error Resume Next
Dim App As Outlook.Application
Dim Posta As Outlook.MailItem
Dim MyFile As String

Application.DisplayAlerts = False
ActiveWorkbook.Save
MyFolder = "C:\Genel\"
Sheets("2").Select
MyFile = [b1] & " " & [b2] & " " & [b3] & " (" & [b4] & ")" & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=MyFolder & MyFile
Sheets("2").Select
Set FSO = Nothing
Set App = CreateObject("Outlook.Application")
Set Posta = App.CreateItem(olMailItem)
With Posta
.To = "aaa.bbb@ccc.com"
'.CC = ""
'.BCC =
.Subject = [b1] & " " & [b2] & " " & [b3] & " (" & [b4] & ")" & " Sipariş Listesi"
.Body = "Merhaba" & chr(13) & chr(13) & Date & " tarihli sipariş listesi ektedir." & chr(13) & chr(13) & "Kolay Gelsin." & chr(13) & chr(13) & [b4]
.Attachments.Add MyFolder & MyFile
.Display
'.Send
End With
Workbooks(MyFile).Close
Application.DisplayAlerts = True
'Referanslardan Microsoft Outlook X.X Object Library seçili olmalı.
End Sub

 

[Recep İpek]

Nasıl bir hata veriyor?

 

[geren36]

.Display
'.Send
End With
Workbooks(MyFile).Close

satırlarında .send komutunun önünde ' işareti var. Bu durumda .send komutunu yeşil olarak görüyor olmalısın ve eklediğin dosyayı bu yüzden gönderemiyorsun. .send komutunun başındaki ' işaretini kaldırırsan olacağını düşünüyorum... :icelim:

 

[fakuru]

Teşekkür

Sayın geren36 dediğiniz gibi yaptım ve oldu...

Çok teşekkür ederim...

.Display
'.Send
End With
Workbooks(MyFile).Close

satırlarında .send komutunun önünde ' işareti var. Bu durumda .send komutunu yeşil olarak görüyor olmalısın ve eklediğin dosyayı bu yüzden gönderemiyorsun. .send komutunun başındaki ' işaretini kaldırırsan olacağını düşünüyorum... :icelim:

 

[fakuru]

Sayın ripek Allah sizden milyonlarca kez razı olsun...

Harika oldu. Sayın geren36 nın dediği değişikliği yapınca çalıştı... Süpper bir çalışma oldu. Emeğinize sağlık...

Harika insanlar topluluğu "www.excel.web.tr"

Nasıl bir hata veriyor?

 

[Recep İpek]

Allah (c.c) hepimizden razı olsun.

İşinize yaradığına gerçekten çok sevindim.

Ben 'Send kısmını bilerek pasif yapmıştım.Çünkü maili ekranda görüp Gönder butonuna sizin basmanız gerekir diye düşünmüştüm.

Ayrıca merak ettiğim bir nokta, siz yaptığınız şekilde gönderirken "Güvenlik Uyarısı" çıkıyormu? Yani gönder butonuna bastıktan sonra başka bir işlem yapıyormusunuz?

 

[fakuru]

sayın ripek; aşağıda adresini verdiğim siteki dosyayı download edip bilgisayara yükledikten sonra güvenlik uyarısı çıkmıyor. Yüklü olmazsa çıkıyor. Ayrıca Outlook 2003 ile çalışıyor, express le çalışmıyor...

http://www.mapilab.com/outlook/security/

Allah (c.c) hepimizden razı olsun.

İşinize yaradığına gerçekten çok sevindim.

Ben 'Send kısmını bilerek pasif yapmıştım.Çünkü maili ekranda görüp Gönder butonuna sizin basmanız gerekir diye düşünmüştüm.

Ayrıca merak ettiğim bir nokta, siz yaptığınız şekilde gönderirken "Güvenlik Uyarısı" çıkıyormu? Yani gönder butonuna bastıktan sonra başka bir işlem yapıyormusunuz?

 

[Recep İpek]

Bilgilendirme için teşekkürler.

 

[baydeniro]

Merhaba arkadaşlar. Peki SEND butonuna basmadan da göndermek mümkün mü ?

 

[ahmetyasar]

bende göndere basmadan,ve outlook kapalıyken çalışma sayfasını göndermenin yolunu arıyorum arkadaşlar.bi fikri olan varmı

 

[baydeniro]

Paylaşım için teşekkürler

 

[ockucukay]

ekteki dosyalar işinize yarayacaktır diye düşünüyorum.