Åbne .msg fil fra Access

Nå ikke...

:-----(    (lang næse til mig!)

Det kan gøres på flg måde!

Sæt en reference til "Microsoft 9.0 Object Library"

og brug flg. kode

Private Sub Kommandoknap0_Click()
    Dim out As Outlook.Application
    Set out = New Outlook.Application
    Dim mail As Outlook.MailItem
    'Set mail = out.CreateItem(olMailItem)
    Set mail = out.CreateItemFromTemplate("c:\txt.msg")
    mail.Subject = "Hula Hop ring!!"
   
    mail.To = txtNavn.Value
   
    mail.Display
   
    Set mail = Nothing
    Set out = Nothing
End Sub


VH CK

Den reference der skulle sættes var selvfølgelig "Microsoft Outlook 9.0 Oject Library"

VH CK

Ellers tak kedde65, men jeg har selv løst problemet!

Så siger jeg da mange gange tak for at du ikke lukkede spørgsmålet inden jeg gik igang med det.
Utrolig!! Jeg kan ikke se hvorfor jeg ikke skal have de point, mit svar løste det spørgsmål du stillede, og du havde ikke lukket spørgsmålet inden jeg svarede, så hvorfor du selv stjæler de fleste point fatter jeg ikke.

CK

Ro på batman! Jeg stjæler ikke noget fra dig, jeg er nærmere flink og giver dig ti point! Jeg har selv løst problemet...
Du får kun ti point fordi jeg ikke har fået lukke spørgsmålet...

Min løsning er også væsentlig anderledes end din, men jeg er ikke målig som dig så nu får du min version:

Mod:
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Function ExecuteShell(strCommand As String) As Boolean
On Error GoTo err_ExecuteShell
Dim lng As Long
Dim lngResult As Long
Dim strFolder As String
    lngResult = ShellExecute(lng, "open", strCommand, vbNullString, vbNullString, SW_SHOW)
    If lngResult <= 32 Then
        lngResult = ShellExecute(lng, "open", Chr(34) & strCommand & Chr(34), vbNullString, vbNullString, SW_SHOW)
    End If
    ExecuteShell = (lngResult > 32)
    Exit Function
err_ExecuteShell:
    ExecuteShell = False
End Function


Private Sub cmdMateriale_Click()
On Error GoTo Err_cmdMateriale_Click

Dim stAppName As String

    stAppName = "S:\" & strUser & "\TM-Support.msg"
    If ExecuteShell(stAppName) Then
        MsgBox "Filen belv åbnet ..... JUBII"
    Else
        MsgBox "Filen belv IKKE åbnet ..... den kunne nok ikke findes"
    End If

Exit_cmdMateriale_Click:
    Exit Sub

Err_cmdMateriale_Click:
    MsgBox Err.Description
    Resume Exit_cmdMateriale_Click
   
End Sub

What ever! Om du vælger den lange eller korte løsning, er selvfølgelig ligemeget.

De 2 løsninger iøvrigt intet funktionalitets mæssigt til forskel andet end den ene er længere end den anden.

VH CK

Jo, men lad nu det ligge.