Otomatik Mail Gönderme hk.

[Fuatckmk]

Arkadaşlar merhaba,

Sormak istediğim birkaç sorum olacaktı;

1) Makroda hata vermiyor fakat çalışmıyor da. Hata nerede ?

2) Makroda gereksiz satır var mı? (öğrenmek açısından soruyorum)

3) Mail içeriğine yazmak istediğim içerik birkaç cümle olacak fakat satırlar alt alta olmalı ve en alt satırda mail için köprü kurmam gerekiyor.(Örn;‪C:\Users\çakmakf\Desktop\Sözleşme Fiyat Revizyonları\Özet Tablo) maili görecek kişi bu linke tıkladığında dosyayı açabilmeli.

4) Son olarak mail içeriğindeki yazı tipini ve karakterini outlooktaki yazı tipi ve karakterine göre yazma durumu var mı?

 

[Fuatckmk]

Yardımlarınızı rica ederim

 

[askm]

İlk 2 sorunuzun cevabı;
1. Aşağıdaki şekilde sorun olmadan çalışıyor.
2. Döngü kullanmanıza gerek yok.

Sub mail_gonder()
'     sonsatir = Cells(Rows.Count, "C").End(3).Row
'     For i = 2 To sonsatir
      Set OutApp = CreateObject("Outlook.Application")
      Set OutMail = OutApp.CreateItem(0)
      With OutMail
       .Subject = Cells(4, "B").Value
       .To = Cells(2, "B").Value
       .CC = Cells(3, "B").Value
       .htmlbody = "<br><br>" & Cells(5, "B").Value & .htmlbody
'       .Display
       .send
      End With
      
      Set wrdEdit = Nothing
      Set OutMail = Nothing
      Set OutApp = Nothing
'    Next i
End Sub

 

[Fuatckmk]

İlk 2 sorunuzun cevabı;
1. Aşağıdaki şekilde sorun olmadan çalışıyor.
2. Döngü kullanmanıza gerek yok.

Sub mail_gonder()
'     sonsatir = Cells(Rows.Count, "C").End(3).Row
'     For i = 2 To sonsatir
      Set OutApp = CreateObject("Outlook.Application")
      Set OutMail = OutApp.CreateItem(0)
      With OutMail
       .Subject = Cells(4, "B").Value
       .To = Cells(2, "B").Value
       .CC = Cells(3, "B").Value
       .htmlbody = "<br><br>" & Cells(5, "B").Value & .htmlbody
'       .Display
       .send
      End With
      
      Set wrdEdit = Nothing
      Set OutMail = Nothing
      Set OutApp = Nothing
'    Next i
End Sub

teşekkürler yardımınız için, mail çalıştı fakat imza çıkmadı

 

[askm]

Kodlarınızda imza ile ilgili bir bölüm yok ki?

 

[Fuatckmk]

Kodlarınızda imza ile ilgili bir bölüm yok ki?

Nasıl olduğunu bilmiyorum ama bu kodu ilk çalıştırdığımda imzam çıkıyordu satırdaki yazı ile birlikte, kodlardan iyi anlamıyorum sizin daha önceki vermiş olduğunuz kodlardan yola çıkarak yaptım, nereye nasıl eklemeliyim peki ?

 

[askm]

3. Sorunuzun cevabı da aşağıdaki şekilde.
İmza için http://www.excel.web.tr/f48/outlook-mza-sorunu-t99792.html linkde açıklama mevcut.

Sub mail_gonder()
'     sonsatir = Cells(Rows.Count, "C").End(3).Row
'     For i = 2 To sonsatir
      Set OutApp = CreateObject("Outlook.Application")
      Set OutMail = OutApp.CreateItem(0)
      With OutMail
       .Subject = Cells(4, "B").Value
       .To = Cells(2, "B").Value
       .CC = Cells(3, "B").Value
       .HTMLBody = "<br><br>" & Cells(5, "B").Value & "<br><br>" & _
       "<a href='http://benimsitem.com'>Lütfen Burayı Tıklayın </a>"

       .Display
'       .send
      End With
      
      Set wrdEdit = Nothing
      Set OutMail = Nothing
      Set OutApp = Nothing
'    Next i
End Sub

 

[Fuatckmk]

uğraştırıyorum ilginize teşekkür ederim fakat adresi bulamadığını söylemekte, dosya uzantısını ben mi yanlış yapıştırıyorum.
(Öğeyi bulamıyoruz lütfen doğru konumu veya web adresini koyduğunuzdan emin olun diyor, boş bir mail açıp aynı konumu köprüye eklediğimde açıyor)
"<a href='\\10.230.235.110\Ford Finans\00_DEMIRDOKUM_FINANS\2018\Demirdöküm_Ocak'1 8.xlsm'>Lütfen Burayı Tıklayın </a>

 

[Fuatckmk]

imza dediğiniz adrestekileri uyguladım şuan imza sorunsuz çalışıyor

 

[askm]

Hata sebebi ip üzerinden yaptığınız için. Normal bilgisayardan bir belge yolunu gösterip deneyin.

 

[askm]

Dosyayı açmak için de CTRL tuşu ile tıklamanız gerekiyor.

 

[Fuatckmk]

Hata sebebi ip üzerinden yaptığınız için. Normal bilgisayardan bir belge yolunu gösterip deneyin.

Evet dediğiniz gibi oldu. Fakat ben ip üzerinden yapmam gerekiyor bu mümkün değil mi?

 

[Fuatckmk]

........... Silindi ...........

 

[Fuatckmk]

.......... Silindi ........