Mail Gönderimi

[Nazmi YAZICI]

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

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.

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]

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.

 

[Nazmi YAZICI]

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.

 

[Nazmi YAZICI]

Mrb,
Ben sorunumu hallettim.
Teşekkürler.

[/code]