proğramı e posta ile gönderme makrosu

[hakpin]

Arkadaşlar neden yazmıyorsunuz basit mi buldunuz.
İş yerinde bir excel proğramı yaptım.Bu proğramı ekleyip e posta ile hep aynı adrese gönderilmesi için makro yatım ve "Seyahat Giriş" sayfasının sağ üst köşesinde bulunan düğmeye atadım,yalnız proğramı ekliyor ama adresi otamatik yazmıyor.Düğmeye tıkladığımda hem proğramı eklemesini hemde düğme üzerineki adresi otomatik yazmasını istiyorum.Bize sadece göder demek kalsın, şimdiden teşekkür ederim,kolay gelsin.

 

[Levent Menteşoğlu]

Bu şekilde adresi yazmanız zor onun yerine aşağıdaki gibi bir kodlama kullanın.

ad = "seyahatonayi.xls"
Application.ScreenUpdating = False
Set wb = ActiveWorkbook
With wb
    .SaveAs "c:\" & ad
    .SendMail "[EMAIL="okaya@........gov.tr"]okaya@........gov.tr[/EMAIL]" , "Seyahat Onayı"
    .Close False
End With
Application.ScreenUpdating = True
Kill "c:\" & ad

 

[hakpin]

Makroyu çalıştırdım ,ellerine sağlık teşekkür ederim.