E-mail med Marco!

Du kan jo bruge en lille VBA funktion.

Her er en grundform, du kan arbejde videre på:

Sub SendEmail()
  Dim Outlook_Item As Outlook.Application
  Dim Mail_Item As MailItem
  Dim Receiver As Recipient

  Set Outlook_Item = New Outlook.Application
  Set Mail_Item = Outlook_Item.CreateItem(olMailItem)
   
  With Mail_Item
      .Subject = "Her står emnet"
      .Body = "Her står body teksten"
      Set Receiver = .Recipients.Add("test@test.dk")
      .Display      'Vis mailen
'      .Send        'Send mailen
  End With
 
  Set Mail_Item = Nothing
  Set Outlook_Item = Nothing
End Sub

Jeg har prøvet med denne her med jeg får bare fejl
"Compiler error:
User-Defined type nor defined" gahrrrrrrrrrrrrrr.,

Private Sub Command44_Click()
Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem

Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)

With oOMail
.To = "name@domain.com"
.Subject = "email subject"
.body = "email message"
.Send
End With

End Sub

Ååårh ja. Du skal lige oprette en reference til Outlook.

- Gå ind i VBA editoren, klik på Tools/References.
- Rul ned og markér Microsoft Outlook xx.x Object Library
- Klik OK

Så burde det spille

tak