eksportere komma separetet

for udvalte id

+ skal vist udskiftes med &

+ virker også

Oki, så lærte jeg noget nyt :o)

Det jeg gerne vil er at ekportere til en txt fil, i komma separeret format og samtidig vedhæfte filen til en mail, med tekst i subject linien

Hvorfor vil du eksportere til en txt fil. Kan du ikke nøjes med at maile rapporten?

Syntaksen er:

DoCmd.SendObject , "", "", e-mail, "", "", emne, brødtekst, False, ""

For at vedhæfte en rapport:

DoCmd.SendObject acReport, "rapportnavn", "HTML(*.html)", email, "", "", "emne", "brødtekst", False, ""

Mugs, det er fordi at ,mine data skal eksporteret og importeres i et andet program som jeg endnu ikke kender. Kan eksportere mine date til en exel fil men ikke en txt fil

Undskyld, men hvorfor eksporterer du en RAPPORT? Hvorfor ikke en tabel??? Hvis det skal være kommaserareret, skal du bruge denne sætning:

docmd.TransferText acExportDelim,"Specifikaionsnavn","Dinforespørgsel","C:\dinfil.txt",True

"Specifikaionsnavn" laver du ved at lave en "prøve-eksport", hvor du angiver diverse seperatortegn og tekstomgrænser, hvorefter du vælger Avanceret og knappen "Gem specifikation".

Herefter sender du en mail vha OLE-automation:

Dim OutL As Outlook.Application
Dim Item As MailItem
Dim Receiver As Recipient

    Set OutL = New Outlook.Application

    Set Item = OutL.CreateItem(olMailItem)
   
    With Item

        .Subject = "Mails"
        .Body = "Sådan sender man mails vha VBA"
        .FlagStatus = olFlagMarked
        '.Attachments.Add "C:\dinfil.txt"
        .Recipients.Add "tj@makeiteasy.dk"
             
        .Display
    End With
    Set Item = Nothing

Alt i alt, kommer koden så til at se således ud:

Dim OutL As Outlook.Application
Dim Item As MailItem
Dim Receiver As Recipient

docmd.TransferTexta cExportDelim, "Specifikaionsnavn","Dinforespørgsel","C:\dinfil.txt",True

    Set OutL = New Outlook.Application

    Set Item = OutL.CreateItem(olMailItem)
   
    With Item

        .Subject = "Mails"
        .Body = "Sådan sender man mails vha VBA"
        .FlagStatus = olFlagMarked
        .Attachments.Add "C:\dinfil.txt"
        .Recipients.Add "tj@makeiteasy.dk"
             
        .Display
    End With
    Set Item = Nothing

glemte lige at sige, at for at kunne sende mails vha oventående metode, skal der være en reference til "Microsoft Outlook x.0 Object Library"

Godmorgen.

'thomasjepsen' selvfølgelig skal det være til en tabel.

sådan skal min kode se ud, men for fejl på:  Dim OutL As Outlook.Application

sådan ser koden ud efter tilpasning.

Private Sub Command158_Click()
Dim OutL As Outlook.Application
Dim Item As MailItem
Dim Receiver As Recipient

DoCmd.TransferText acExportDelim, ";", "qrycrew", "C:\dinfil.txt", True

    Set OutL = New Outlook.Application

    Set Item = OutL.CreateItem(olMailItem)
   
    With Item

        .Subject = "Mails"
        .Body = "Sådan sender man mails vha VBA"
        .FlagStatus = olFlagMarked
        .Attachments.Add "C:\crewDATA.txt"
        .Recipients.Add "js@schoesler.com"
             
        .Display
    End With
    Set Item = Nothing
End Sub

'thomasjepsen' fandt den rigtige reference, det er jo tidligt ik'

'thomasjepsen' tak for hjælpen

selv tak :o)