maile dosya eklemek

[b_balban]

Merhaba Arkadaşlar,


Umarım konuyu yanlış yere açmamışımdır.Forumda aradım ama bulamadımyardımcı olursanız sevinirim;

İşimle ilgili bir dosya hazırlıyorum.Ve bu çalıştığım dosyanın mail ile gitmesini istiyorum.Macro da normal mail kodunu oluşturdum fakat dosyayı ekleyemiyorum.Yardımcı olursanız sevinirim.

kod şu şekilde;

Sub Excel_Serienmail_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object
Dim i As Integer
Dim Nachricht
For i = 1 To 10
'Variablen müssen bei jeder Schleife neu initalisiert werden
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Cells(i, 1)'Adresse
.Subject = Cells(i, 2) 'Betreffzeile
.Body = Cells(i, 3) 'Sendetext
'Hier wird die Mail gleich in den Postausgang gelegt
'und die Sicherheitsabfrage muss jedesmall bestätigt werden
'.Send
'Hier wird die Mail "angezeigt"
'aber gleich versendet,... OHNE Sicherheitsabrage
.Display
SendKeys "%s",True
End With
'Variablen zurücksetzen sonst geht es nicht
Set OutApp = Nothing 'CreateObject("Outlook.Application")
Set Nachricht = Nothing 'OutApp.CreateItem(0)
Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub


arkadaşlar fazla macro bilgim yok anlayabileceğim şekilde açıklarsanız sevinirim.

Bu koda ne eklemeliyim ki çalıştığım dosyayı maile eklesin.


Şimdiden teşekkür ederim.


saygılarımla

 

[hamitcan]

Sub mailgonder()
Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
    With NewMail
    .To = "aaa@aaa.com" ' Bu kısıma mail adresi giriniz.
    .Subject = "deneme" ' Bu kısıma konuyu giriniz.
    .Body = "Sayın Yetkili Bu mail ekte görmüş olduğunuz mail bilgi için gönderilmiştir."
    .Attachments.Add "C:\test.txt" 'Ekleyeceğiniz dosya ve yolu belirtin.
    .Send
    End With
    Set NewMail = Nothing
    Set OutApp = Nothing
End Sub