Access form og Outlook

Prøv at eksperimentere lidt med en makro. Brug handlingen SendObject. Når det fungerer tilfredsstillende, kan du konvertere makroen til VBA.

mugs>> SendObject låser Access indtil man er færdig med mailen i Outlook - kan man undgå det ?

lav linket som fx:
mailto:En persons navn <mail@domain.dk>?cc=En anden person <mail1@domain.dk>&subject=Her er et subject&body=Og en body%0Dmed linieskift. %0DEller%3F%0DNu får vi se.

Jeg må ærlig indrømme, at jeg ikke ved det. Jeg har ikke selv Outlook installeret. Jeg benytter Outlook Express, og sender kun e-mail af en størrelse, hvor det ikke er noget problem.

You need a reference to Outlook
Private Sub Command0_Click()
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 = "The subject"
        .Body = "This is the body of the mail - http://www.eksperten.dk"
        .FlagStatus = olFlagMarked
        '.Attachments.Add "Any attachments"
       
        Set Receiver = .Recipients.Add("SomeEmail")
       
        If Not Receiver.Resolve Then
            .Display 'This will open Outlook
        Else
            .Send 'This will just send the mail
        End If
    End With
   
    Set Item = Nothing

           
End Sub

Tak for dit svar, men jeg forstår det simpelthen ikke, så derfor ingen point! Jeg har klaret det ved at anvende SendObject. Oplysningerne til e-mail modtageren vedhæftes mailen. Det er ikke så elegant. Jeg havde håbet på et svar, hvor oplysningerne fra formularen blev flettet direkte ind i Outlooks skabelon/mail. Jeg deler naturligvis stadig gerne de 60 point ud, hvis der servers et pædagogisk svar...

kfh>Something you have to learn. Points are given for a correct answer not a happy customer. If you cant get it to work then that is your problem. If you placed some comments saying that you were unable to get it to work then we could have hellped, but you didnt, so HOW are we supposed to know you have a problem?

kfh > Jeg har en testdb omhandlende forskellige måder at sende en e-mail fra Access. Som tidligere nævnt hat jeg ikke outlokk, så det frejer sig om OutLook Ecpress, men måske kan det give dig et lift. Blot læg din e-mail.

terry > Det har du da ret i, men tingene hænger altså sammen. Jeg har prøvet (i min uvidenhed) at copy din kode ind i mit program. Din kode kaldes via en knap. Men jeg kan altså ikke få det til at virke. I øvrigt, kan jeg ikke se hvorledes felterne "personens navn", "adresse" osv "flettes" ind i Outlook (i din kode)?

mugs > Meget gerne! kaare.falbe-hansen@wanadoo.dk

Sendt.

mugs > Tak for det. Jeg har klaret den med følgende:

DoCmd.OpenQuery "Q_E-mail_bekræft", acNormal, acEdit
    DoCmd.SendObject acReport, "Q_E-mail_bekræft", "RichTextFormat(*.rtf)", Me.Email, "", "", "Bekræftelse fra firmanavn", "", True, ""
   
   
    DoCmd.Close acQuery, "Q_E-mail_bekræft"

Virker tilsyneladende fint, men kunne godt tænke mig at give lidt point for dit bidrag...

Jamen - så tak for det :o)