Arkadaşlar merhaba,
Oluşturduğumuz bir masraf onay formuna aşağıdaki mail gönderme kodunu ekledik ve bu kod sayesinde kullanıcı butona bastığında dosyayı kaydederek mail gönderiyor;
Private Sub cmd_Click()
ThisWorkbook.Save
Dim OutApp As Object
Dim NewMail As Object
Dim ShName As String, WbName As String
Dim ModX As Object, VBComp As Object
Set OutApp = CreateObject("Outlook.Application")
Set NewMail = OutApp.CreateItem(0)
With NewMail
.To = "mehmet@ieu.com.tr"
.Subject = "Masraf Onay Talebi"
.Body = "Ekteki harcama için onayınız gerekmektedir."
.Attachments.Add ThisWorkbook.FullName
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Ancak mail bana ulaştıktan sonra dosyada oluşturduğumuz ikinci userform üzerinden onay kutucuğunu işaretlediğimizde bize maili gönderen kişiye aynen reply yapamıyoruz.Bu işin bir çözümü varmıdır ?2 tane kod olsun biri yukarıdaki gibi mail göndersin diğeri gönderen kişiye dosyayı attached edip reply yapsın..
Acil yardım!!Teşekkürler!!
Oluşturduğumuz bir masraf onay formuna aşağıdaki mail gönderme kodunu ekledik ve bu kod sayesinde kullanıcı butona bastığında dosyayı kaydederek mail gönderiyor;
Private Sub cmd_Click()
ThisWorkbook.Save
Dim OutApp As Object
Dim NewMail As Object
Dim ShName As String, WbName As String
Dim ModX As Object, VBComp As Object
Set OutApp = CreateObject("Outlook.Application")
Set NewMail = OutApp.CreateItem(0)
With NewMail
.To = "mehmet@ieu.com.tr"
.Subject = "Masraf Onay Talebi"
.Body = "Ekteki harcama için onayınız gerekmektedir."
.Attachments.Add ThisWorkbook.FullName
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Ancak mail bana ulaştıktan sonra dosyada oluşturduğumuz ikinci userform üzerinden onay kutucuğunu işaretlediğimizde bize maili gönderen kişiye aynen reply yapamıyoruz.Bu işin bir çözümü varmıdır ?2 tane kod olsun biri yukarıdaki gibi mail göndersin diğeri gönderen kişiye dosyayı attached edip reply yapsın..
Acil yardım!!Teşekkürler!!