UserForm İle Mail Göndermek

[cenk e.]

Merhaba, userform kullanarak mail gönderme işlemi yapmak istiyorum fakat hata veriyor, ne olduğunu bulamadım, bu konuda bilgi verebilirseniz sevinirim.
Not: Gerektiğinde hücreden adres çekeceğim, gerektiğinde de textbox'a yazacağım adrese göndereceğim. 2. kısmını halledemedim bir türlü.

 

[Zeki Gürsoy]

Hangi satırda hata dönüyor?

 

[cenk e.]

Zeki bey iyi geceler,

.To=TextBox1

satırında object doesn't support this method hatası veriyor.

 

[Zeki Gürsoy]

Şu kısmı düzenleyin:

With [COLOR=Blue][B]OutMail[/B][/COLOR]

 

[cenk e.]

Zeki Bey, hızlı cevabınız için çok teşekkür ediyorum, kod şimdi işimi görecek şekilde çalışıyor.

 

[gokhanbek]

ek kodunu da yayınlarsanız de kullansak iyi olur demi

 

[cenk e.]

Gökhan Bey merhaba, yazınızı şimdi gördüm,

Sub RetrieveFileName()
Dim sFileName As String

'Show the open dialog and pass the selected _
file name to the String variable "sFileName"
sFileName = Application.GetOpenFilename
'MsgBox sFileName
    'They have cancelled.
    UserForm3.TextBox4.Text = sFileName
    If sFileName = "False" Then Exit Sub
MsgBox sFileName
End Sub

Ek için mrexcel sitesinden bulduğum bir kodu kendime uyarlamıştım adresi de kaydettim sanıyordum ama kaydetmemişim o yüzden kaynak veremiyorum. Mantık basit, seçilen klasördeki dosya adresini al attachment olarak bu yolu göster. Bununla tek dosya gönderilebiliyor çoklu dosya gönderimi için uğraşmadım.

 

[gokhanbek]

teşekürler

 

[arslandede]

Userform ile son satırı mail göndermek

Merhabalar,

USERFORM İLE VERİ KAYDI YAPIYORUM. KAYDET BUTONUNA BASINCA SON EKLENEN SATIRI VE 1.SATIRI MAİLE KOPYALAYIP MAİLE EKLEMEK VE GÖNDERMEK İSTİYORUM.


Dosyayı ekledim. Yardımlarınızı bekliyorum.

 

[gokhanbek]

Merhabalar,

USERFORM İLE VERİ KAYDI YAPIYORUM. KAYDET BUTONUNA BASINCA SON EKLENEN SATIRI VE 1.SATIRI MAİLE KOPYALAYIP MAİLE EKLEMEK VE GÖNDERMEK İSTİYORUM.


Dosyayı ekledim. Yardımlarınızı bekliyorum.

dosyanız ektedir. satır numaralarına dikkat ediniz.

 

[arslandede]

dosyanız ektedir. satır numaralarına dikkat ediniz.

Çok teşekkürler. Bu modülü bulmuştum ama entegre edememiştim.
Ellerinize sağlık

 

[arslandede]

Bir sorum daha olucak. Mail e imzamızı nasıl ekleriz ??

 

[gokhanbek]

HTMLBody = RangetoHTML(rng) & "imza"

şeklinde olabilir

 

[arslandede]

HTMLBody = RangetoHTML(rng) & "imza"

şeklinde olabilir

İmza için;
Şuanda default olarak gelen mail imzamı kullanmak istiyorum. Acaba bu şekilde nasıl kullanabilirim.

Eklediğiniz dosyada AR number kısmına sayı girdiğimde mail gönderirken #### şeklinde çıkıyor. Bu pronlemi nasıl çözebilirim.

Teşekkürler

 

[gokhanbek]

imzaya çözüm yok
ambar numarasında bende düzgün çalışıyor sebebini anlayamadım

 

[arslandede]

İlk gönderdiğinizi açtığımda ekteki gibi görünüyor. AR numarası kısmına 123456 yazdım bu şekilde geldi.

Yardımlarınızı bekliyorum. Teşekkürler.

 

[haimow]

Sadece çalışma yapılan sayfayı göndermek için hangi kodu kullanmam gerekir, tam olarak yazabilirseniz sevinirim.(Referanslardan Outlook u eklemek dışında yapmam gereken bir şey var mıdır?)