e-mail vanuit exel versturen incl. bijlage en body als range

Status
Niet open voor verdere reacties.
O

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
554
Geacht forum,
Onderstaande code verzend de email NIET maar zet hem in
outlook UIT , wordt dus niet verzonden.
Is er in deze code een aanvulling te maken zodat de email wel direct verzonden word?
Jaap

Code: 
Sub Send_Range()
       ActiveSheet.Range("B2:N12").Select
       ActiveWorkbook.EnvelopeVisible = True
   
  With ActiveSheet.MailEnvelope
      .Item.To = "email adres"
      .Item.Subject = "Factuur"
      .Item.Attachments.Add "C:\locatie van de te versturen factuur"
      .Item.Send
  End With
   
      Range("A1").Select
   
  End Sub
 
Dit werkt bij mij, maar volgens mij moet je een object aanvinken "microsoft outlook 14.0 object library" in tools eneen object aanmaken

Code: 
Option Explicit

Sub sendEmail()

Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)

olMail.To = "rob@hotmail.com"
olMail.Subject = "Test Kerstgroet Vrienden Van Het goede Leven"
olMail.Body = "Blah die Blah Blah"
olMail.Send


End Sub
 
Laatst bewerkt:
Hellboy01 gebruikt een andere manier van het versturen van email en eigenlijk kan je die beter gebruiken.
Maar doe dit eens:
Code: 
  With ActiveSheet.MailEnvelope
[COLOR="#FF0000"]      .Item.Sender = "Je eigen email adres"
[/COLOR]      .Item.To = "email adres"
      .Item.Subject = "Factuur"
      .Item.Attachments.Add "C:\locatie van de te versturen factuur"
      .Item.Send
  End With
 
Laatst bewerkt:
SjonR,

Die van rondebruin heb ik bekeken en toegepast , dat werkt , maar ik vond degene
welke ik gevonden had een kortere en wilde die graag toepassen.

Hellboy,
Ik ga het eens proberen door een object aan te maken
Dat vinkje had ik al geplaatst

edmoor,
.Item.Sender doet het niet bij mij , er word GEEN adres geplaatst.

Groetjes , Jaap
 
Hier wel. Maar dat kan een versieverschil zijn. Zoals ik al zei, de methode van Hellboy is beter.
De MailEnvelope is inderdaad korter, maar de andere heeft veel meer mogelijkheden en een betere ondersteuning.
 
Ik doelde op MailEnvelope. Via het Outlook object is er geen verschil wat Office versies betreft :)
 
Hellboy01,

Ik heb Window10 met office 2016

Op blad1 , in B2:N12 , staat de tekst van een aanmaning met daar in ook een bedrag met het euro teken
Hoe krijg ik nu deze tekst , precies zoals het op blad1 staat , in de .Body van de mail??

Jaap
 
Plaats dat document eens.
 
Dat is niet B2:N12 maar B2:B12.
Probeer deze maar eens:
Code: 
Sub sendEmail()
    Dim Body As String
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(olMailItem)
    
    For i = 2 To 12
        Body = Body & Cells(i, 2) & vbCrLf
    Next i
    
    olMail.To = "rob@hotmail.com"
    olMail.Subject = "Test Kerstgroet Vrienden Van Het goede Leven"
    olMail.Body = Body
    olMail.Send
End Sub
 
Laatst bewerkt:
edmoor,

Dat was bijna goed.
Ik had B2:N12 genomen omdat in de oplossing nu H4--I4--J4 en k4 ontbreken
Jaap
 
En wat staat er in H4--I4--J4 en K4?

Edit:
Zie het al, was me niet opgevallen.
Wordt vervolgt...
 
Laatst bewerkt:
Code: 
Sub sendEmail()
 With CreateObject("Outlook.Application").createitem(0)
   .To = "blabla.com"
   .Subject = "Test Kerstgroet Vrienden Van Het goede Leven"
   .Body = Range("B2") & vbLf & vbLf & Range("B4") & Range("H4") & " " & Range("I4") & Format(Range("J4"), "currency") _
    & " " & Range("K4") & vbLf & Range("B5") & vbLf & Range("B6") & vbLf & Range("B7") & vbLf & vbLf & Range("B9") _
    & vbLf & vbLf & Range("B11") & vbLf & Range("B12")
   .display '.send
End With
End Sub
 
Is dus al door HSV vervolgt :p
 
Ik heb je aanpassing van #14 gemist. :shocked:
 
Maakt niet uit. TS heeft een oplossing en daar gaat het om :)
 
edmoor/HSV ,

Ja als de toppers aan de slag gaan komt het wel goed.
Prachtige oplossing en het mooie is dat ik hem nog begrijp ook.
Weer wat van opgestoken.
Bedankt voor de hulp!

Vriendelijke groet , Jaap
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan