Mail Gönderimi

Katılım
15 Haziran 2005
Mesajlar
40
Mrb,

Sn.Raider'in daha önce yazmış olduğu aşağıdaki uygulama, References'te MS Outlook 11.0 Object Library yüklü olduğu halde
Kod:
Set OutlookApp = CreateObject("Outlook.Application")
satırı için xl 429 nolu "ActiveX component can't create object" hatasını üretiyor.

Çözüm için yardımcı olan herkese teşekkürler.
Syg.

Kod:
Sub EmailSheet()
Dim OutlookApp As Object, OutlookMsg As Object
Dim FSO As Object, BodyText As Object
Dim MyRange As Range, TempFile As String
'On Error Resume Next
Set MyRange = ActiveSheet.UsedRange
If MyRange Is Nothing Then Exit Sub
Set FSO = CreateObject("Scripting.FilesystemObject")
TempFile = "C:\TempHTML.htm"
ActiveWorkbook.PublishObjects.Add _
(4, TempFile, MyRange.Parent.Name, MyRange.Address, 0, "", "").Publish True
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMsg = OutlookApp.CreateItem(0)
Set BodyText = FSO.OpenTextFile(TempFile, 1)
OutlookMsg.HTMLBody = BodyText.ReadAll
OutlookMsg.Subject = "Merhaba !"
OutlookMsg.To = "excalub@yahoo.com"
'OutlookMsg.Display
OutlookMsg.Send
'Kill TempFile
Set BodyText = Nothing
Set OutlookMsg = Nothing
Set OutlookApp = Nothing
Set FSO = Nothing
End Sub
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Merhaba,

Herhangibir sorun yok.

Hatta, bahsettiğiniz referansı eklemenize bile gerek yok. Çünkü, kodlar "Late Binding" olarak hazırlanmıştı. Yeter ki, bilgisayarınızda MS Outlook yüklü olsun.
 
Katılım
15 Haziran 2005
Mesajlar
40
Mrb,

Maalesef bu kodda takılıyor. Doğal olarak Ms Outlook ta yüklü ancak çalıştığım kurum normalde Lotus Notes kullanıyor ama ben aynı zamanda otomatik mail kullanımı için Ms Outlook'u da xl üzerinden kullanabiliyorum.

Esas sorunum HTML tabanlı bir mail göndermek. Elimde sisin daha önce yazdığınız bu kodlar vardı. Eğer bunu benim PC'de aşamayacaksam, HTML tabanlı bir mail body gönderimi konusunda yardımınız olabilir mi?

Syg.
 
Katılım
15 Haziran 2005
Mesajlar
40
Mrb,
Ben sorunumu hallettim.
Teşekkürler.

[/code]
 
Üst