Her kommer en af de svære. Export txt fil som vedhæftet i e-mai

min tabel hedder "agreement"

Denne omdanner en forespørgsel til en tekstfil, og vedhæfter den til en e-mail. Kræver en reference til Outlook:

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

DoCmd.TransferText acExportDelim, ";", "Forespørgsel1", "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 "mugs@mail.dk"
             
        .Display
    End With
    Set Item = Nothing

.

'mugs' glemte vist at skrive a exporten skal skrives som i min tekst

START,”Hyrekontakt”,””,””,””,0,””,2004-01-01,12:00
CREWSTART,[felt3]
A1,”[felt1]”
A2,”[felt2”
A3,”[felt3]”
…
CREWEND,[Felt3]

END,”Hyrekontakt”,””,””,””,0,””,2004-01-01,12:00

og ikke i en linie

Der er selvfølgelig den mulighed, at du kan formattere en rapport, åbne den og vælge "Send til Postmodtager".

schoesler->Jeg har lidt svært ved at gennemskue hvad dit format repræsenterer.
Jeg er med på, at der er en Start og End og en Crewstart og Crewend, men kan de sidste gentages flere gange?

Uanset hvad, så ville det måske være en god ide at lave en tmp-tabel, som du bygger op som du ønsker.
Herefter kan du så vælge docmd.SendObject til at sende denne tabel i det rigtige format.

'thomasjepsen'

Felt3 er cpr.nr og skal afgrænse starten og slut på en record, da der skal kunne eksporteres flere records i samme fil, hvis det findes nødvendig.

Men så forstår jeg ikke at CPRnr kun skal med i staren og i slutningen! Hvis der er flere personer, så skal CREWSTART og CREWEND altså med flere gange. Således:

START,”Hyrekontakt”,””,””,””,0,””,2004-01-01,12:00
CREWSTART,[felt3]
A1,”[felt1]”
A2,”[felt2”
A3,”[felt3]”
…
CREWEND,[Felt3]
CREWSTART,[felt3]
A1,”[felt1]”
A2,”[felt2”
A3,”[felt3]”
…
CREWEND,[Felt3]

END,”Hyrekontakt”,””,””,””,0,””,2004-01-01,12:00

Er det korrekt?

Hvad er A1 i forhold til "[felt1]"? Skal det forstås som værdi og feltnavn?

Det er rigtigt, crew start og end skal med hvergang der kommer en ny besætning (record)

A1 er en reference til en kontrakt

feks.
A1, navn
A2, efternavn
A3, cpr.nr
o.s.v

Ok, hvad siger du til at den kommer til at se således ud:

START,”Hyrekontakt”,””,””,””,0,””,2004-01-01,12:00
CREWSTART,[felt3],"","","","","","",""
A1,”[felt1]”,"","","","","","",""
A2,”[felt2”,"","","","","","",""
A3,”[felt3]”,"","","","","","",""
…
CREWEND,[Felt3],"","","","","","",""
CREWSTART,[felt3],"","","","","","",""
A1,”[felt1]”,"","","","","","",""
A2,”[felt2”,"","","","","","",""
A3,”[felt3]”,"","","","","","",""
…
CREWEND,[Felt3],"","","","","","",""

END,”Hyrekontakt”,””,””,””,0,””,2004-01-01,12:00


Problemet er nemlig, at I og med at du har 9 kolonner i første og sidste linie, så vil Access altid også sætte 9 kolonner i alle de andre rækker?

Eller sådan:
"START","Hyrekontakt","","","","0","","2005-03-09","16:32"
"CREWSTART","1234567891",,,,,,,
"A1","Ole Hansen",,,,,,,
"A2","Fuglevej 3",,,,,,,
"A3","4000",,,,,,,
"A4","Roskilde",,,,,,,
"A5","1234567891",,,,,,,
"CREWSEND","1234567891",,,,,,,
"CREWSTART","5432109875",,,,,,,
"A1","Bent Jørgensen",,,,,,,
"A2","Agervang 3",,,,,,,
"A3","4300",,,,,,,
"A4","Holbæk",,,,,,,
"A5","5432109875",,,,,,,
"CREWSEND","5432109875",,,,,,,
"CREWSTART","3243546576",,,,,,,
"A1","Sofie Sørensen",,,,,,,
"A2","Ahlgqde 43",,,,,,,
"A3","4300",,,,,,,
"A4","Holbæk",,,,,,,
"A5","3243546576",,,,,,,
"CREWSEND","3243546576",,,,,,,
"END","Hyrekontakt","","","","0","","2005-03-09","16:32"

Demo her: http://www.makeiteasy.dk/eksempler/Eksperten/EksportTekst.zip

'thomasjepsen' kigger lige, det umiddelbart godt ud :-)

'thomasjepsen' Jeg tør næsten ikke sige det, men det ville være bedst, hvis den kun vælgte den record som man stod i på formularen. Jeg får en fejlkode når jeg prøver at køre dit eksempel.

Altså sådan her....

"START","Hyrekontakt","","","","0","","2005-03-09","16:32"
"CREWSTART","1234567891",,,,,,,
"A1","Ole Hansen",,,,,,,
"A2","Fuglevej 3",,,,,,,
"A3","4000",,,,,,,
"A4","Roskilde",,,,,,,
"A5","1234567891",,,,,,,
"CREWSEND","1234567891",,,,,,,
"END","Hyrekontakt","","","","0","","2005-03-09","16:32"

Jeg får en fejlkode når jeg prøver at køre dit eksempel.

Runtime error 429.
ActiveX can't create component.

Jan

I hvilken linie får du fejl (hvis du klikker Debug)?

Jeg har ændret filen, så den nu kun tager den aktuelle post...

Og så har jeg fjernet en reference til Outlook 11 (2003) som måske kan have drillet dig...
Prøv at hente den igen.

Får stadig en fejl på activeX control, error 429

Men dit eksempel virker på min anden computer :-(

Det lyder som om, det er din Outlook, som driller. Kan du spore dig frem tl hvilken linie, som fejler?

Jeg havde selv en lignende fejl på min maskine indtil jeg afinstallerede outlook og installerede den igen.

'thomasjepsen' Tak for hjælpen, det var noget der 'duttede'

Efter at jeg fik lavet en detect and repair på min outlook kom den også til at virke.

Tak for hjælpen og god week-end

Jan

Perfekt, tak og i lige måde :o)

Ny Nr. 1 - Til lykke med det Thomas

haha, jo tak, Mugs :o)

Lad os nu se hvor længe...