Avatar billede vista Nybegynder
19. maj 2003 - 12:18 Der er 1 kommentar og
1 løsning

Automatiseret sende .txt filer via mail

Jeg er ny på access, og har oprettet en tabel med 2 filnavne, samt et adresse felt. På formen er der oprettet en kommandoknap til start af outlook (det virker!), men jeg ville gerne have at den automatisk opretter et dokument, med mailadressen, samt de 2 filer vedhæftet, hvad gør jeg ?
Her er standardkodem fra accsess :

Private Sub Outlook_Click()
On Error GoTo Err_Outlook_Click

    Dim stAppName As String

    stAppName = "C:\Programmer\Microsoft Office\Office10\OUTLOOK.EXE"
    Call Shell(stAppName, 1)

Exit_Outlook_Click:
    Exit Sub

Err_Outlook_Click:
    MsgBox Err.Description
    Resume Exit_Outlook_Click
   
End Sub
Avatar billede terry Ekspert
19. maj 2003 - 12:20 #1
you need to automate outlook
Avatar billede terry Ekspert
19. maj 2003 - 12:31 #2
Something like this
Function SendMail()
Dim Out As Outlook.Application
Dim Post As Outlook.MailItem

Set Out = CreateObject("Outlook.Application")
Set Post = Out.CreateItem(olMailItem)


Post.To = "SomeEmailAddress"
Post.Body = "Body Of Email"

Post.Attachments.Add "C:\SomeFile.txt"


Post.send

Set Out = Nothing


End Function

and you need a reference to Outlook (Tools+References  menu)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



IT-JOB

Gehl Architects ApS

IT Supporter

IT & Co ApS

IT-tekniker

Udviklings- og Forenklingsstyrelsen

Udvikler til procesapplikationer

Queue-it ApS

Team Lead Engineering