PDA

Orijinalini görmek için tıklayınız : VBA kullanarak mail atma



atasoyhk
18.12.2004, 16:19
Hazırladığım bir formu görev butonu ile nasıl istediğim adrerse mail atacak duruma getire bilirim.

Ceavplarınız için şimdiden teşekkürler...

Kubilay karabulut
18.12.2004, 21:57
Mail adresini değiştirirseniz,istediğiniz adrese gönderebilirsiniz

Sub Mail_ActiveSheet_CSV_File()
Dim wb As Workbook
Dim strdate As String
Dim Fname As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Fname = "C:\Part of " & ThisWorkbook.Name _
& " " & strdate & ".csv"
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs Fname, FileFormat:=xlCSV
.SendMail "kubilay_karabulut@hotmail.com", _
"Excel'den mailiniz var :)"
.Close False
End With
Kill Fname
Application.ScreenUpdating = True
End Sub

atasoyhk
19.12.2004, 00:31
merhaba bu sicrip komple dosyayımı atıyor yoksa sadece kullanıldığı sayfayımı ?

atasoyhk
19.12.2004, 00:46
Pardon bir kodu denedim fakat bir hata mesajı almıyorum ama mailde göndermiyor acaba mail dışında başka ayar yapmam gereklimi.

Ben aşşağıdaki yolu izledim :
1. Denetim araç kutusundan komut düğmesi oluşturdum.
2. Daha sonra komut düğmesini üzerien tıklayıp kod girilecek bölüme geldim.
3. Önce oradaki
Private Sub CommandButton1_Click()

End Sub

satırları arasına gönderdiğiniz kodları girdim ( olmadı )
4. Private Sub CommandButton1_Click()

End Sub
satırlarını kaldırıp gene denedim olmadı

5. farklı yollar denedim gene yapamadım

Sayın kubilay bey acaba nerde hata yapıyorum yardımcı olursanız sevinirim.

TarkanV
19.12.2004, 17:17
arkadaşımızın yazdığı makroda hiçbir problem yok. Bu makroyu ister commandbutton_click ile kullan ister arkadaşımızın yazdığı makro adıyla kullan yine de uygulama çalışır durumda. Şuna dikkat etmelisin
Excel içerisinde bir buton oluşturup bu kodları oraya kaydediyorsan

Private sub commandbutton1_click()

end sub

satırları arasına diğer private sub başlığını ve end sub satırlarını yazmamalısın, eğer bunları yazmıyor da yine de çalışmıyorsa mail adresine kodların yazılı olduğu bir .xls dosyasını gönderebilirim.

Kolay gelsin, kubilay arkadaşa da selamlar. :D

atasoyhk
19.12.2004, 22:14
Dediğinizi yaptım fakat gene çalıştıramadım. size zahmet mail adresime göndeririseniz sevinirm.
kaanatasoy@sibermekan.com

TarkanV
19.12.2004, 22:47
istediğiniz dosyayı kaanatasoy@sibermekan.com adresine gönderdim.

TarkanV
20.12.2004, 00:19
Private Sub mailgonder_click()
Application.Dialogs(xlDialogSendMail).Show
End Sub

kodunu da kullanarak çalıştığın dosyayı mail atabilirsin, geriye sadece mail adresini yazmak kalıyor.

dumanibo
22.12.2004, 17:03
Bu dosyayı bir değil de belirli 2 kişiye göndermek için nasıl bir kod yazmalıyız?

TarkanV
22.12.2004, 17:19
ASAGIDAKI KODDA TIRNAK ICINE NOKTALI VIRGUL YAPIP DIGER MAIL ADRESINI YAZIN

.SendMail "kubilay_karabulut@hotmail.com;tarkanvural@hotmail. com",

ŞEKLINDE.