a1 hücresini kopyalayıp mail atmak

[esad45]

ek te a1 hücresinde verim var formüllü
bu hücreyi sadece a1 i kopyalayıp a3 deki kişiye mail atmak istiyorum bunu nasıl yapabilirim

 

[Emir Hüseyin Çoban]

. . .

Dosya üzerinde biraz çalışın,
daha kullanışlı güzel çalışmalar yapalabilir.

Sub KOD_MAİL()

If Sheets("Sayfa1").Range("A1") = "" Then
MsgBox "Metin Yok "
Else

Application.ScreenUpdating = False
'NOT: TOOLS-REFERENCES TIKLA
'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI

With Application
.EnableEvents = True
End With
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = Sheets("Sayfa1").Range("A3")
'.CC = ""
.Subject = "Hesap Bakiyeniz Hk."
.Body = Sheets("Sayfa1").Range("A1")
'.Attachments.Add 'Ek
'.Importance = 2 'önem düzeyi 2:yüksek 1:normal 0:düşük
.Save
.Send
'.Display
End With
Set objMail = Nothing
Set objOutlook = Nothing
Application.ScreenUpdating = True
MsgBox Sheets("Sayfa1").Range("A3") & " adresine " & Chr(10) & "Mail gönderildi."

End If
End Sub

. . .

 

[esad45]

ofice 2010 kullanıyorum kod çalışmadı

ofice 2010 kullanıyorum kod çalışmadı

 

[esad45]

türkçe 2010

 

[esad45]

outlook ta taslaklara atıyor

 

[Emir Hüseyin Çoban]

. . .

Bende sıkıntı görünmüyor, maili gönderiyor.
Siz ne hatası alıyorsunuz.
Kodların uygulandığı dosya ekte.

. . .

 

[esad45]

teşekkür ederiz lakin bu kodları anlayamadım mesala dosyayı komple pdf e çevirip nasıl mil atabiliriz