Soru Çalışma kitabını eklemeden mail ile makro yapımı

[by_erman]

Merhaba

Aşağıdaki kodu mail atmak için kullanıyorum çalışıyor fakat çalışma kitabını da ekliyor. Ben çalışma kitabını eklemesini istemiyorum sadece mail programı açılsın yeterli. Birde arg1:= de sabit mail değilde belirttiğim bir hücre deki mail i nasıl alabilirim?


Sub SendMail()
Application.Dialogs(xlDialogSendMail).Show _
arg1:="abc@mymail.com", _
arg2:="This goes in the subject line"
End Sub

 

[schlecht]

Bir deneyin işinizi görür umarım.

 

[by_erman]

Bir deneyin işinizi görür umarım.

Altın üye olmadığım için indiremiyorum. Direkt kodları atabilirmisiniz?

 

[schlecht]

Sub Mail_Gonder()
Dim OutApp As Object, OutMail As Object
Dim S1 As Worksheet, S2 As Worksheet, Alan As Range

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Set S1 = Sheets("sayfa1")
On Error Resume Next
With OutMail
.To = S1.Range("b1").Value
.Cc = S1.Range("b2").Value
.Bcc = S1.Range("b3").Value
.Subject = S1.Range("b4").Value
.Display

End With
End Sub

 

[by_erman]

Sub Mail_Gonder()
Dim OutApp As Object, OutMail As Object
Dim S1 As Worksheet, S2 As Worksheet, Alan As Range

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Set S1 = Sheets("sayfa1")
On Error Resume Next
With OutMail
.To = S1.Range("b1").Value
.Cc = S1.Range("b2").Value
.Bcc = S1.Range("b3").Value
.Subject = S1.Range("b4").Value
.Display

End With
End Sub

Lotus için olanı varmıdır? Outlook kullanmıyoruz da

 

[schlecht]

Bende malesef yok.

 

[by_erman]

Bende malesef yok.

teşekkür ederim.