Sende mails fra Acces med "Sendobjekt" makro

Må vi se din kode? Er som regel nemmere at klarlægge hvad der er galt.

Hvis din knap er placeret ved en post burde nedenstående fungere.

Hvad får du frem hvis du skriver:
Msgbox [feltnavn], vbokonly, "Hvad mon er gal?"

-------------

    Dim objOl As New Outlook.Application
    Dim objPost As MailItem
    Dim Attachment_file As Attachments
    Set objPost = objOl.CreateItem(olMailItem)
    Set Attachment_file = objPost.Attachments
    Attachment_file.Add full_file_name
   
    With objPost
        .subject = "Faktura"
        .To = [feltnavn]
        .BCC = ""
        .Body = ""
        .Send
'        .Save
'        .Display
    End With
'    objOl.Quit
   
    Set objPost = Nothing
    Set vedhæftet = Nothing
    Set objOl = Nothing

Mange tak for hjælpen. det virker !

Du bedes oprette et "svar" så jeg kan give point...

svar

Lige et tillægs spørgsmål:

hvordan opsættes formatering i mailen? Som det er nu oprettes en simpel tekst som ikke er formateret.

Uh, det har jeg ikke selv haft leget med, men så skal mailen vist oprettes som en HTML mail, og så kan det vist styres vha. HTML koder, alternativt skal man eksperimentere med at lave en mail i Outlook, og gemme den som kladde, og så lade access kopiere den, men det er som sagt ikke noget jeg har prøvet.