Opgelost Vanuit Excel direct een Blad uit een Excel bestand versturen

[Johande]

Beste,

Is er een oplossing voor een blad vanuit een excelbestand direct te kunnen versturen via Outlook die op de pc staat.

Gr, Johan

 

[edmoor]

Ja.
Maar plaats vooral een voorbeeld documentje.

 

[Johande]

Hallo Dit is een simpel voorbeeldje de gegevens staan op blad gegevens project.
En controle blad moet worden verzonden als een bijlage. Graag hier een sub voor die ik kan aanroepen.

Dank

 

[edmoor]

Met de voorbeeldcode van Ron de Bruin en Helpmij collega JKP:

 

[Johande]

Dank voor de reactie.
Is gelukt wat ik wilde.

 

[edmoor]

Mooi zo.
Dan kan je je vraag als opgelost markeren.

 

[Johande]

Heb toch nog een vraagje als mag.
Ik heb teksten in cellen staan en wil deze gelijk in de mail plaatsen maar krijg er geen lege regel tussen.
' Opbouw met zichtbare witregels (met puntjes ertussen om ze af te dwingen)
controleTekst = "Beste " & persoonNaam & vbCrLf & "." & vbCrLf & _
ws.Range("A2").value & vbCrLf & "." & vbCrLf & _
ws.Range("A3").value & vbCrLf & "." & vbCrLf & _
ws.Range("A4").value & vbCrLf & "." & vbCrLf & _
ws.Range("A5").value & vbCrLf & "." & vbCrLf & _
ws.Range("A6").value
heb je er een oplossing voor?

 

[emields]

ja staat in #2

 

[Johande]

wat bedoel je er mee?

 

[edmoor]

Wat in #2 staat lijkt me toch duidelijk.

 

[AD1957]

Wat wil je met die puntjes, iedere witregel staat nu 1 puntje ?
probeer dit eens.

.Body=controleTekst

 

[edmoor]

En als je .HTMLBody gebruikt dan moet je niet het control teken vbCrLf gebruiken maar de tekst "<br>".
Die punten zijn nergens voor nodig.

 

[AD1957]

En voor een witregel zonder puntje.

ws.Range("A2").value & vbCrLf & vbCrLf & _

 

[Johande]

Nee, werkt niet alles strak onder elkaar

 

[edmoor]

En nog steeds geen voorbeeld documentje.

 

[Johande]

De tekst staat op het blad en wil ik ook van een blad halen zodat iedereen dit kan aanpassen en niet in een SUB staat

 

[edmoor]

Bekijk dit eens:

 

[Johande]

hier krijg ik een foutmelding op
Set OutMail = Nothing
Set OutApp = Nothing
Maar krijg geen mail in beeld

 

[edmoor]

In het document dat ik plaatste werkt het prima.
Dan heb je het niet correct overgenomen in je eigen document.

 

[Johande]

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
dit is de foutmeldinng