bu program sizin yerinize otomatik olarak e-posta göndermeye çalışıyor.

[mücahitayan]

bu program sizin yerinize otomatik olarak e-posta göndermeye çalışıyor.

değerli arkadaşlar.

outlook 2003 aracılığı ile bir döngüde mail gönderiyorum.

her posta için bu uyarıyı veriyor.

bir çözümü var mıdır acaba ?

 

[ReBiwAr]

gönderme makrosunun kodlarından kaynaklanıyor arkadaşım aşağıdaki kodları dene istersen. (sanırım senin kodun bu : Application.Dialogs(xlDialogSendMail).Show)

Doğru 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

 

[mücahitayan]

evet çok teşekkür ederim. saolun

 

[enesaslan]

merhaba logo muhasebe yazılımından toplu mail atmaya çalışınca banada bu uyarıyı veriyor. Nasıl çözebilirim acaba