email naar Outlook concept map

[rmanders1945]

Hoi,
ik heb reeds eerder een zeer goede oplossing van jullie ontvangen betreffende email vba Outlook en Sendkeys.
Nu zou ik graag de email willen plaatsen via vba naar de map Concepten in Outlook.
Ik heb onderstaande vba voor de email.
Is het mogelijk om deze direct in de Concepten map te plaatsen ?
Alvast ontzettend bedankt voor de genomen moeite,
Rob


Sub FaktEmailenAlsPDF3()

Dim Bestand As String
Dim OutApp As Object
Dim OutMail As Object

Set OutlookApp = CreateObject("Outlook.Application")

Sheets("Aantekeningen").Unprotect

Sheets("Aantekeningen").Range("N13").Value = 0 '' als er iets fout gaat wordt het 1


directory = Sheets("Aantekeningen").Range("N5").Value


emailadres = "" & Sheets("VerkoopFaktuur").Range("AA4").Value ''emailadres
naamlid = Sheets("VerkoopFaktuur").Range("E7").Value ''voornaam en achternaam

Filename = directory & " " & naamlid & " "

'' "C:\Users\Fakturen" 'De locatie van de bijlage

Bestand = Filename & ".pdf"

''Bestand = Environ("TEMP") & "" & ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Bestand


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail
.To = emailadres
.CC = ""
.BCC = ""
.Subject = "Factuur"
.Body = "Factuur"
.Attachments.Add Bestand

.Display
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%z" '' z voor nederlandse versie outlook s voor engelse versie
'' .Send
End With

On Error GoTo fout

Kill Bestand
GoTo verder


fout:
MsgBox " niet verzonden ! "

Set OutMail = Nothing
Set OutApp = Nothing

Sheets("Faktuur").Select
Sheets("Aantekeningen").Range("C1").Value = 1

verder:



Call SetNumLockOn


End Sub

 

[DigiCafee]

Snap het niet helemaal : je wil een mail in Concepten zetten, maar de actie die je programmeert is .Send - dan staat hij natuurlijk niet in Concepten.
Als je je mail niet samenstelt in de interface van je Outlook is de map Concepten toch niet relevant ? Je Excel is bij manier van spreken dan je opslag voor Concepten tot je ze vanuit VBA verstuurt ...

PS : lange copy/paste van VBA steeds !!!! tussen code-tekens zetten aub ? Leest makkelijker (derde laatste knop van de menu-bar hierboven drukken na het selecteren van de betrokken tekst)

 

[rmanders1945]

Hoi,
bedankt alvast voor de snelle reactie.
De bedoeling is, dat de email in de Concept map wordt gezet, omdat men naderhand het een en ander wil toevoegen cq. aanpassen.
Meerdere personen kunnen dit dan doen via de email door deze uit de Concepten map te halen en dan aan te passen.
Men doet dit liever via Outlook, dan via Excel, omdat men pas achteraf e.e.a. wil toevoegen.
Dus ik zou graag de aanpassing willen doen via vba om de mail naar de map Concepten te plaatsen ipv rechtstreeks naar de geadresseerde te versturen.
Ben zeer benieuwd of dat uberhaupt mogelijk is.
Graag reactie.

Alvast bedankt.

(zal rekening houden met de te lange tekst.)

 

[edmoor]

Gebruik .Save in plaats van .Send

En haal dat Application.Wait en .SendKeys verhaal eruit.
Ook die .Display kan er uit.
De On Error en foutafhandeling is op zich al zodanig fout dat je er niets aan hebt.

Je maakt 2 Outlook objecten terwijl er maar 1 nodig is.
Je haalt de beveiliging van Sheets("Aantekeningen") er af en zet deze nergens weer terug.
De Sheets("Aantekeningen").Range("N13") wordt nergens op 1 gezet als dat zal nodig zou zijn.
Je begrijpt wel wat die code allemaal doet?

 

[rmanders1945]

Hoi,
in ieder geval bedankt voor de reactie.
Je geeft aan dat .Send vervangen moet worden door .Save.
Alleen zie ik het woord .Send nergens staan, wel Application.SendKeys "%z"
Of moet ik '' .Send vervangen door : .Save ?

Wat bedoel je overigens met 2 Outlook objecten?

De rest ga ik uiteraard aanpassen.

Alvast bedankt.
Rob

 

[edmoor]

Wijzig dat With Outmail stukje in dit:

With OutMail
    .To = emailadres
    .CC = ""
    .BCC = ""
    .Subject = "Factuur"
    .Body = "Factuur"
    .Attachments.Add Bestand
    .Save
End With

 

[rmanders1945]

Ga dit aanpassen en hoop morgen uitsluitsel te krijgen of het werkt.

In ieder geval bedankt voor de genomen moeite.

Tot morgen.
Rob

 

[edmoor]

Wat ik bedoel met 2 Outlook objecten is dat deze regel er teveel in staat:
Set OutlookApp = CreateObject("Outlook.Application")

Dat maakt een Outlook object en dat gebruik je verder nergens in de code.

 

[rmanders1945]

Oke,

ook dat ga ik aanpassen.

Je begrijpt uiteraard, dat ik maar een beginneling ben.

Groetjes,
Rob

 

[edmoor]

Vandaar de extra adviezen.
En als je er hulp bij nodig hebt is Helpmij the place to be

 

[snb]

@Edm

en

.CC = ""
.BCC = ""

is niet overbodig ?

 

[edmoor]

Wat mij betreft wel, maar dat mag TS zelf beslissen.