Sende en hel fil via makro

kigger med :)

Hvis du bruger Outlook kan du måske bruge nedenstående. Husk at lave en reference til Outlook.

Private Sub SendMail()

    Dim ObjOutlook As Outlook.Application
    Dim ObjOutLookMsg As Outlook.MailItem
    Dim ObjOutLookRecip As Outlook.Recipient
   
   
    Set ObjOutlook = CreateObject("Outlook.Application")
    Set ObjOutLookMsg = ObjOutlook.CreateItem(olMailItem)

    Dim strFilSti as string
    strFilSti = "c:\test.xls"
   
    ObjOutLookMsg.Save
   
    With ObjOutLookMsg
        Set ObjOutLookRecip = .Recipients.Add("1@mailadresse.dk")
        ObjOutLookRecip.Type = olTo
       
        .Subject = "Emnet på mailen"
        .Body = "Selve mailen"

        .Attachments.Add strFilSti
        .Save
        '.Send
    End With
   
    Set ObjOutlook = Nothing
   
End Sub

Tak'r, men koden lægger "kun" filen i "Kladder"-mappen, der sendes ikke direkte, kan man ikke det ?
alj

ups, jeg prøver lige uden " ' " foran .send, sorry
alan

---> asol, jubiiiiiiiiii det virker, gider du lige smide et svar, 1000-tak
alan

Hvordan kan man forøvrigt ændre koden, så den altid sender den fil koden selv er i ?
alan

Så skal du skrive       

.Attachments.Add ActiveWorkbook.FullName

i stedet for

.Attachments.Add strFilSti

Sorry. Du skal skrive       

.Attachments.Add ThisWorkbook.FullName

danke sehr !
alan