Mail vedhæftet fil fra excel

du kan ikke bruge mailto til at sende attachment men du kan bruge Outlook objected i stedet, se her: http://www.rondebruin.nl/mail/folder2/files.htm

Tak for det, den havde jeg egentlig også været inde i på et tidspunkt, men makroen stopper når den når til:

  Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon

Hvad gør jeg galt ?

prøv at læse det der står nederst på siden om Early binding

Sorry - det har jeg nu gjort (Jeg er ikke nogen ørn til VBa, men håber at blive det).

Jeg har fulgt beskrivelsen, men får stadig fejl.

Den kode som jeg forsøger, at fyre af er:

Sub Send_Files()
'Working in 2000-2007
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim sh As Worksheet
    Dim cell As Range, FileCell As Range, rng As Range

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

    Set sh = Sheets("ark1")

    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon

    For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants)

        'Enter the file names in the C:Z column in each row
        Set rng = sh.Cells(cell.Row, 1).Range("C1:Z1")

        If cell.Value Like "?*@?*.?*" And _
          Application.WorksheetFunction.CountA(rng) > 0 Then
            Set OutMail = OutApp.CreateItem(olMailItem)

            With OutMail
                .To = cell.Value
                .Subject = "Testfile"
                .Body = "Hi " & cell.Offset(0, -1).Value
                For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
                    If Trim(FileCell) <> "" Then
                        If Dir(FileCell.Value) <> "" Then
                            .Attachments.Add FileCell.Value
                        End If
                    End If
                Next FileCell
                .Send  'Or use Display
            End With

            Set OutMail = Nothing
        End If
    Next cell

    Set OutApp = Nothing

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

Ved Set OutApp = CreateObject("Outlook.Application") kommer fejlen: Runtime error 429, ActiveX can´t create object.

nu har du vel outlook fra officepakken installeret ?

Jo den er installeret og kører som den skal.

prøv at ændre:

    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
til

    Dim OutApp As Object
    Dim OutMail As Object

Så spiller det her

Har prøvet, men det virkser stadig ikke. Kan der være behov for, at jeg skal ha´ tilføjet flere "References" ?

check menuen Funktioner|Tilføjelsesprogramer og sæt nogle flueben

der er flueben i alle dem jeg kan se, bortset fra værktøj til euro-valuta, men måske jeg skal ha´ installeret nogel flere ?

det lyder godt nok underligt, jeg har arbejdert med dette object i flere måneder uden problemer. Hvad er det for en fejl du får og hvilken linje?

det er i denne linie: Set OutApp = CreateObject("Outlook.Application"), at jeg får fejlen: Runtime error 429, ActiveX can´t create object.

Men jeg har fundet dette link: http://www.dicks-clicks.com/excel/olSending.htm#Sending_an_E-mail_with_Attachments og det dækker egentlig mit behov.

tyder på du mangler nogle dll´er til outlook.

har du en ide om hvilke ?

næ, men du kan afinstallere og geninstalere outlook

Det prøver jeg. Tak for hjælpen. Har du ikke et hint til mit spørgsmål om: ASCII+31 ; som separator ved eksport af file fra excel.

Jeg lukker nærværende spørgsmål og du får dine point.

nu har jeg ikke lige set det spørgsmål om ASCII+31 ?

Her er mit spørgsmål:

Jeg skal bruge tegnet ascii+31, som separator i en flad file. Når jeg ser det på skærmen, så ser det rigtigt ud, men når jeg ta´r filen ind i en editor så er separatoren ?-tegnet.

prøv med =TEGN(31)

Hvor i denne kode skal jeg skrive det ?

    ActiveWorkbook.SaveAs Filename:="C:\temp\tegn31.txt", FileFormat:=xlText, _
        CreateBackup:=False

hvis du bare skal have en komasepareret fil skal du sætte FileFormat:=xlCSV

Den skal ikke bare være kommasepareret, separatoren skal være tegn(31)

hmm... Så ville jeg gøre som du kodet nu og læse filen ind i en enkelt String og så gennemløbe strengen og indsætte 31 og overskrive filen igen

Har du en lille stum kode, som jeg eventuelt kunne bruge ?

desvære :-/ og jeg er ude af døren om 10 minuter, men hvis du ikke selv har løst det i morgen kan jeg kikke på det

ok du får lige en hurtig en, men du må selv bakse med det
hvis vi antager at du gemmer filen med FileFormat:=xlCSV
så læser vi den ind igen og erstater alle kommaer med ascii 31

Sub ConvertFile(filespec)
    Dim fs, sString
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set sString  = fs.GetFile(filespec)
    sString = Replace(sString, Chr(44), Chr(31))
    fs.SaveFile(filespec)
End Sub

tak for det - jeg spør´ lidt dumt - skal jeg ikke angive filnavnet et sted i koden ?

jo det er filespec, lidt forvirende kan jeg godt se

så:
ConvertFile("C:\temp\tegn31.txt")

med følgende kode får jeg fejl, når den når til fs.savefile

Sub ConvertFile()
    Dim fs, sString
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set sString = fs.GetFile("C:\temp\tegn31.tx")
    sString = Replace(sString, Chr(44), Chr(31))
    fs.SaveFile ("C:\temp\tegn31.txt")
End Sub

klart ;-) jeg har givet dig et vbScript eksempel, forkert! du får lige en VBA

jeg tror også vi køre en linje ad gangen, så nu ser det lidt anderledes ud

Sub ConvertFile()
  fInput = FreeFile()
  fOutput = FreeFile()
  Open "C:\temp\tegn31.txt" For input As fInput
  Open "C:\temp\2tegn31.txt" For output As foutput
      While Not EOF(fInput)
        Line Input #fInput, sString
        sString = Replace(sString, Chr(44), Chr(31))
        Line Output #fOutput, sString
    Wend
  Close fInput
  Close fOutput
End Sub

hej  - jeg får syntax error på: Line Output #fOutput, sString

kan ikke lige se hvor det er galt !

erstat den med:
Write #fOutput, sString

så skulle den spille

sorry, but nu afviklingen af koden i linien: Open "C:\temp\2tegn31.txt" For output As foutput

ret koden til:

  fInput = FreeFile()
  Open "C:\temp\tegn31.txt" For input As fInput
  fOutput = FreeFile()
  Open "C:\temp\2tegn31.txt" For output As foutput

lidt underligt men sådan er microsoft nogen gange

yes - nu er den lige ved, at være der, nu har jeg kun det problem, at hver record starter og slutter med anførselstegn " - det skal de ikke, har du en løsning ?

dem kan du også filtrere fra ved sString = Replace(sString, Chr(34), "")

ja, men der er jo i outputfilen, at de er ! Er det fordi den gennemes som string ?

det lyder for underligt, de må også være i inputfilen, det er meget normalt med "" i en komasepareret fil og det er ikke pga String, men du skulle kunne fjerne dem med:
sString = Replace(sString, Chr(34), "")