Gemme mail i Outlook som fil vha VBA
Hej,Jeg arbejder fra Access 2000.
Jeg har et problem med at finde ud af, hvornår en mail er blevet sendt.
Situationen er, at jeg åbner en ny mail på skærmen til brugeren, som så kan skrive videre i den. Hvis brugeren vælger at sende mail'en, ønsker jeg at gemme mailen eller indholdet i en fil på serveren. Hvis brugeren vælger at lukke mailen, skal jeg ikke gemme noget.
Det optimale ville være, hvis jeg kunne gemme mailen som en .msg-fil eller .rtf-fil, men jeg ved ikke hvordan jeg fanger mailen efter at brugeren har trykket "send"!?
Min idé var at kigge på sidste post i tabellen "Sent Items", tage indholdet og gemme i et word-dokument og gemme det på serveren.
Jeg har følgende kode:
Public Sub SendAndSaveMail(email As String)
On Error Resume Next
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 = "Brødtekst"
.FlagStatus = olFlagMarked
.Recipients.Add email
.Display
End With
Do
Loop Until Item.Sent
' do some stuff here.....
End Sub
Mit sidste Do-Loop fungere fint, bortset fra at jeg ikke ved om mailen er blevet sendt eller blot lukket.
Er der nogle ideer?
