Oluşan Pdfleri Gmail ile gönderme?

[komanchero]

Merhaba arkadaşlar,

mutabakatları tek tek faks ve mail çekmek işkencedir bilen bilir.

şimdi ben macroma vergi no, isim, fat. adeti ve tutarı yapıştırdığımda, her şirket için ayrı ayrı mutabakat formunu pdf olarak alabiliyorum.

  ActiveSheet.Name = MySheetName & i
    ActiveSheet.Range("G34").Value = wsheet.Range("A" & i).Value
    ActiveSheet.Range("E34").Value = wsheet.Range("C" & i).Value
    ActiveSheet.Range("F34").Value = wsheet.Range("D" & i).Value
    ActiveSheet.Range("E29").Value = wsheet.Range("D2").Value
   End If
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\" & MySheetName & ".pdf"
   MySheetName = ""
 Next i

End Sub

kullandığım formülün sonucu böyledir. pdf den sonra google chrome üzerinden gmail adresimden her firmaya ayrı bir mail atabilir miyiz?

outlook olsa kolay ama gmail hiç denemedim.

şimdiden yardımlarınız için teşekkür ederim:yardim:

 

[komanchero]

dün baya bir bu konu üstünde çalıştım. Mail gönderecek duruma geldiğimi düşünüyorum..

Çalışma dosyam evde kaldığı için sadece, Mail eki kısmını sormak istiyorum.

yol = "D:\"
name = "Activesheet("b6")"
.Attachments.Add yol & name & ".pdf"

yukardaki gibi yaparsam "YOL" da sorun yaşıyorum

name = "Activesheet("b6")"
.Attachments.Add "D:\" & name & ".pdf"

bu şekilde yaptığımda ise "D:\" de sorun yaşıyorum..

şu yolda sorun yaşar mıyım?

.Attachments.Add "D:\" & MySheetName & ".pdf"

 

[komanchero]

macro bilen yok mu ee dostlar

biri birşey yazmış mıdır diye f5 yapmaktan parmağım ağrıdı.

f5 yapmaktan görüntüleme sayım 130 oldu

 

[NBATMAN]

Merhaba,

Aşağıdaki linkte hazır bir şeyler var. Bir bakın isterseniz.

http://www.learnexcelmacro.com/wp/2...-email-using-excel-macro-from-gmail-or-yahoo/

 

[komanchero]

  .CC = "ali@hotmail.com"
  .BCC = ""
  .HTMLBody = "Sayın Yetkili,"
[I][U][U]  [COLOR="Red"].Attachments.Add ActiveSheet.Range("C47").Select[/COLOR][/U][/U][/I]

bu code nasıl çalışmaz ya delirecem gerçekten.. Lütfen bir bilen yol göstersin ya

edit: C47: "D:\Mutabakat\19051905.pdf" de yazmaktadır.

 

[halit3]

Böyle cevap vermek zor örnek bir dosya ekleseydiniz belkide sorunuza cevap veren olurdu.

 .Attachments.Add ActiveSheet.Range("C47").[COLOR="Red"]Select[/COLOR]
 .Attachments.Add ActiveSheet.Range("C47").[COLOR="Red"]Value[/COLOR]

Kırmızı yerlere dikkat edin

 

[komanchero]

Böyle cevap vermek zor örnek bir dosya ekleseydiniz belkide sorunuza cevap veren olurdu.

 .Attachments.Add ActiveSheet.Range("C47").[COLOR="Red"]Select[/COLOR]
 .Attachments.Add ActiveSheet.Range("C47").[COLOR="Red"]Value[/COLOR]

Kırmızı yerlere dikkat edin

Halit bey teşekkür ederim. hala dosya üstünde çalışıyorum.. attachment bölümünü çıkarttım. sonra smtp sorunu yaşamaya başladım. bu sefer gmail adresi değilde yandex kullandım ve boş mail göndermeyi başardım.

attachment kodun eklediğimde yine çuvallıyorum

 

[komanchero]

belki googledan falan aratıpta girenler olabilir.

attachment ekleme çözümü..

aşağıdaki hücre seçimini kullanabilirsiniz.
.Attachments.Add ActiveSheet.Range("C47").Value

fakat C47 hücresinde "d:\ornek.pdf" diye değilde d:\ornek.pdf olarak geçmesi gerekiyor.

yani "" tırnak işaretlerini kaldırmanız ve C47 hücresinin formülden değil Değerden oluşması gerekiyor.

hadi kolay gelsin.