Açık excel dosyasını stmp server üzerinden gönderme hatası

[zevki.sefali]

Arkadaşlar Merhaba
Günlük mail olarak standart kişilere gönderdiğim bir excel dosyam var. Bu dosyayı stmp serverini kullanarak mail olarak dosya kapalı iken göndere biliyorum. Açık olduğu zaman "dosya başka kullanıcı tarafından kullanılıyor" diye uyarı veriyor. Formda bayağı bi arama yaptım ama konu ile alakalı herhangi bir çözüm bulamadım. Konu ile alakalı yardıma ihtiyacım var. Şimdiden Tşkler.

 

[turist]

Mail gönderen kodun 2.ci satırına
Application.DisplayAlerts = False
yazarak deneyin.

 

[zevki.sefali]

Mail gönderen kodun 2.ci satırına
Application.DisplayAlerts = False
yazarak deneyin.

Turist Bey Çok Tşkler .dosya açık iken gönderildi. sizden ayrıca bir ricam daha olacak.
gönderdiğim dosyanın tarihi günlük değişiyor. o yüzden vba kodunda
dosyayolu = "C:\Users\xxxx\Desktop\"
DOSYA = Dir(dosyayolu & "Baraj*.XLSX") komutu ile dosyayı buluyorum.
mail gönderirken
with NewMail
.Subject = DOSYA
yaptığım zaman mailde dosya adı ile beraber. uzantısıda "baraj(25.09.2018).xlsx olarak yazılıyor. Ben uzanıntının yazmasını istemiyorum. sadece konu adı "baraj(25.09.2018)" olarak yazılsın. sondaki xlsx i kırpmak için ne yapmak lazım

 

[turist]

dosyayolu = "C:\Users\xxxx\Desktop\"
DOSYA = Dir(dosyayolu & "Baraj*.XLSX")
EKDOSYA = Replace(Right(DOSYA, Len(DOSYA) - InStrRev(DOSYA, "\")), ".xlsx", "") ' bu satır e-mail için

with NewMail
.Subject = EKDOSYA

şeklinde deneyin.

 

[zevki.sefali]

dosyayolu = "C:\Users\xxxx\Desktop\"
DOSYA = Dir(dosyayolu & "Baraj*.XLSX")
EKDOSYA = Replace(Right(DOSYA, Len(DOSYA) - InStrRev(DOSYA, "\")), ".xlsx", "") ' bu satır e-mail için

with NewMail
.Subject = EKDOSYA

şeklinde deneyin.

Turist Bey
Her iki sorunumda giderildi. Çok teşekkür ederim. Hayırlı günler.

 

[halit3]

Alternatif olarak uzantısız dosya adı

EKDOSYA = CreateObject("Scripting.FileSystemObject").GetBaseName(Dosya)

 

[zevki.sefali]

Turist Bey
Her iki sorunumda giderildi. Çok teşekkür ederim. Hayırlı günler.

Alternatif olarak uzantısız dosya adı

EKDOSYA = CreateObject("Scripting.FileSystemObject").GetBaseName(Dosya)

Halit Bey
Bu kod satırıda pratik ve başka vba kodlarımda da işimi oldukça kolaylaştıracak Size ve sayın Turist Bey yardımlarınız için çok teşekkür ederim.

 

[halit3]

Teşekkürler iyi çalışmalar

 

[turist]

Sağolun.