Gökhan Tomar
Yeni Üye
Merhabalar,
Aşağıdaki kodlara göre
1- Subject kısmını formül ile almam gerekiyor. Formülüm =BİRLEŞTİR(A1;"- ";SOLDAN(B3;12))
bunu makroda nasıl yazabilirim.
2- body kısmında şu şekilde yazmasını istiyorum,
Gökhan Bey; (ardından)
A1:G38 aralığını mailin içine kopyalamam gerekiyor.
İyi çalışmalar dilerim.
-------------------
Sub Email_Gonder()
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
With Mail
.To = "gokhan.tomar@anadolukimya.com"
.CC = "gokhantomar@gmail.com"
.Subject = "Ortalama Vade Hesaplama-"
.Body = "Gökhan Bey;"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End Sub
Aşağıdaki kodlara göre
1- Subject kısmını formül ile almam gerekiyor. Formülüm =BİRLEŞTİR(A1;"- ";SOLDAN(B3;12))
bunu makroda nasıl yazabilirim.
2- body kısmında şu şekilde yazmasını istiyorum,
Gökhan Bey; (ardından)
A1:G38 aralığını mailin içine kopyalamam gerekiyor.
İyi çalışmalar dilerim.
-------------------
Sub Email_Gonder()
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
With Mail
.To = "gokhan.tomar@anadolukimya.com"
.CC = "gokhantomar@gmail.com"
.Subject = "Ortalama Vade Hesaplama-"
.Body = "Gökhan Bey;"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End Sub