Sende direkte regneark via mail i Excel

http://www.eksperten.dk/spm/411740

http://www.rondebruin.nl/sendmail.htm

så har du lidt at lege med.. :D

Er det muligt at jeg kan sende dig et skabelonsheet som jeg bruger ofte som du måske vil ligge en udskrift knap med macro ind på?

Er der da ingen der ved hvordan man sender et aktivt excel regneark til en fast mailadresse uden først at skulle udfylde modtagerens mailadresse manuelt?

http://www.eksperten.dk/spm/411740 løser lige præcis det problem!

tak, men hvor sætter jeg den kode ind du henviser til ?

Jeg får syntax error... "expected end sub"?

Jeg får compile error... "expected end sub"?

Har du Referenced MS Outlook object library aktiveret

Hvis ikke du har det og ikke ved hvordan
Ctrl F11
Tools/
References
Find microsoft Office X.X Object Library Giv den et flueben
Tryk ok

Hvis det er denne du bruger som Bak kom med...

Du kunne måske bruge denne. Husk i vba at sætte reference til ms outlook

Sub Send_via_Outlook()
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem
Dim szBodyTekst As String
Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)
szBodyTekst = "Hermed fremsendes nye regneark" & vbCr
szBodyTekst = szBodyTekst & "mvh" & vbCr
szBodyTekst = szBodyTekst & "Tommy Bak" & vbCr

With olNewMail
    .Recipients.Add "tbc@linak.dk"
    .Subject = "Nye regneark"
    .Body = szBodyTekst
    With .Attachments
        .Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
    End With
    .OriginatorDeliveryReportRequested = True
    .Display
    '.Send
End With
Set olNewMail = Nothing
Set olApp = Nothing

End Sub

Har sat flueben i microsoft Office X.X Object Library samt Microsift Outlook 11.0 objekt library men det virker stadig ikke! Kan jeg evt. sende arket til jer så i kan se om det er rigtigt lavet?

Splokit@splokit.com
Så skal jeg se på det med det samme

der var også Microsift Outlook ?.? objekt library jeg ville havde skrevet... :S

har sendt dig en mail *S*

på dit ark har du ikke den mail kode...

Har smide koden ind og addet Microsift Outlook ?.? objekt library
så virket det med det samme..

Sub Send_via_Outlook()
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem
Dim szBodyTekst As String
Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)
szBodyTekst = "Hermed fremsendes nye regneark" & vbCr
szBodyTekst = szBodyTekst & "mvh" & vbCr
szBodyTekst = szBodyTekst & "Tommy Bak" & vbCr

With olNewMail
    .Recipients.Add "tbc@linak.dk"
    .Subject = "Nye regneark"
    .Body = szBodyTekst
    With .Attachments
        .Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
    End With
    .OriginatorDeliveryReportRequested = True
    .Display
    '.Send
End With
Set olNewMail = Nothing
Set olApp = Nothing

End Sub

du skal heller ikke bruge den kode... finder lige en anden til dig

Sub Mail_Range()
'Working in 2000-2007
    Dim Source As Range
    Dim Dest As Workbook
    Dim wb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim FileExtStr As String
    Dim FileFormatNum As Long

    Set Source = Nothing
    On Error Resume Next
    Set Source = Range("A1:K50").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0

    If Source Is Nothing Then
        MsgBox "The source is not a range or the sheet is protected, please correct and try again.", vbOKOnly
        Exit Sub
    End If

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    Set wb = ActiveWorkbook
    Set Dest = Workbooks.Add(xlWBATWorksheet)

    Source.Copy
    With Dest.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial Paste:=xlPasteValues
        .Cells(1).PasteSpecial Paste:=xlPasteFormats
        .Cells(1).Select
        Application.CutCopyMode = False
    End With

    TempFilePath = Environ$("temp") & "\"
    TempFileName = "Selection of " & wb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")

    If Val(Application.Version) < 12 Then
        'You use Excel 2000-2003
        FileExtStr = ".xls": FileFormatNum = -4143
    Else
        'You use Excel 2007
        FileExtStr = ".xlsx": FileFormatNum = 51
    End If

    With Dest
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        On Error Resume Next
        .SendMail "", _
                  "This is the Subject line"
        On Error GoTo 0
        .Close SaveChanges:=False
    End With

    Kill TempFilePath & TempFileName & FileExtStr

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

Jeg sender arket tilbage til dig...

Den sender så kun A1:N19 til den faste mail adresse...

http://www.rondebruin.nl/sendmail.htm koden kommer her fra... er lige til at lave om til eget behov..

Det virker stadig ikke, den spørger stadig efter modtagers mailadresse?

betyder det noget det er Outlook Express og ikke Outlook som jeg bruger ?

Sorry den var den forkerte fil... den nye er på vej... :S

Ok

den er sendt... du bruger bare din knap du selv har lavet...

Jeg bruger Microsift Outlook 10.0 objekt library du skal nok hvis ikke den selv gøre adde Microsift Outlook 11.0 objekt library. For den var ikke sadt til...

Hvad siger den!?

Af fejl!?

Gå ind i VB Ctrl F11... / Module1 mærk linje 1 tryk F8 til den laver fejl sig hvad den gør!!

Kan ikke se hvad den siger... tag et screenshot...

der er ingen modul og den sletter arkindholdet når jeg trykker på kommandoknappen som du har tilpasset. Betyder det noget at det er Outlook Express jeg bruger?

har sendt en fejlmeddelelse til din mailadresse!

Jah de koder du har fået er til MS outlook

har du msn?

splokit@splokit.com

http://www.rondebruin.nl/mail/oebody.htm
Her er koderne til Outlook Express

jeg bruger webmessenger.. på samme mail ardesse

ved ikke om man kan adde :S

har addet dig...!!

Jeg skal afsted nu, men ser om jeg kan fange dig senere!

bare oki...

har tilføjet dig min liste i msn *B*

Svar

Lukker