E-mail - indstillinger

gå ind i excel og tryk "F1" skriv email i søgefeltet. her vil der stå hjælp til hvordan du bruger email i excel.

ja ja - der har jeg været og har også en fed funktion... men kan bare ikke lige greje hvordan kvittering for modtagelse sættes i VBA

Sub SendPost()

'SendMail Method
               

'Sends the workbook by using the installed mail system.

'Syntax

'expression.SendMail(Recipients, Subject, ReturnReceipt)

'expression  Required. An expression that returns a Workbook object.

'Recipients  Required Variant. Specifies the name of the recipient as text, or as an array of text strings if there are multiple recipients. At least one recipient must be specified, and all recipients are added as To recipients.

'Subject  Optional Variant. Specifies the subject of the message. If this argument is omitted, the document name is used.

'ReturnReceipt  Optional Variant. True to request a return receipt. False to not request a return receipt. The default value is False.

'
  ActiveWorkbook.SendMail Recipients:="hba", ReturnReceipt:=True

   
End Sub

Okay - nok fordi jeg ikke har forklaret ordentlig... smider lige koden her hvis nogen...

I hvert fald virker "ReturnReceipt:= true" ikke i min kode:

Set olApp = New Outlook.Application
                    Set olNewMail = CreateItem(olMailItem)
                   
                    With olNewMail
                        .Recipients.Add strMail
                        .Body = Format(Date, "dd.mm.yy") & Chr$(10) & "Garageportsordre:" & Chr$(10) & strNames
                        .Subject = "Garageportsordre fra " & _
                                    r1rng(getRow("strforhnavn", "R"), getRow("strforhnavn", "C")) & _
                                    " (" & r1rng(getRow("strforhNr", "R"), getRow("strforhNr", "C")) & ")"
                        .Attachments.Add (funcMakePathWb("strPathDataSheet", CStr(rrng(x, intDataRow))))
                        .Importance = olImportanceHigh
                        .ReturnReceipt = True
                        .Save
                        .Send
                    End With

I ovenstående kode har jeg indsat den og den melder at dette ikke understøttes........

cddk
inde i din kode sætter du jo bare et punktum og så kan du jo alle de propeties og metoder der hører til outlook-mail.
I det her tilfælde kan du bruge
.ReadReceiptRequested = True

Okay - jeg ved godt at jeg bare sætter punktum  -  men vidste ikke / kunne ikke lige fatte at det var den jeg skulle bruge... jeg prøver -

Og tak for hjælpen endnu engang..

Det virker...!

Tak

cddk-> ja, det virker hvis vedkommende læser dine modtagne mails.
Hvis du bare vil kontrollere om den er modtaget i den anden ende kan du bruge

.OriginatorDeliveryReportRequested = True

Okie.. det var mest den... hmmm... synes bare ikke navnet eller forklaringen siger så meget - måske mit engelsk...

Men tak for hjælpen