Exelblad e-mailen via een VBA-code

[Oude leerling]

Hallo,
Zou iemand mij kunnen helpen.
Onderstaande macro heb ik gevonden maar hij werkt niet.
Ik krijg een foutmelding via MsgBox

Groetjes Jaap

Sub Send_Email_Using_VBA()
Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = "Proef exelblad e-mailen met VBA"
Email_Send_From = "jaap.zonneveld9@gmail.com."
Email_Send_To = "infojohnmeijer@gmail.com"
Email_Cc = ""
Email_Bcc = ""
Email_Body = "Gefeliciteerd het is gelukt met VBA !!!!"
On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.cc = Email_Cc
.BCC = Email_Bcc
.Body = Email_Body
.send
End With
debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub

 

[Warme bakkertje]

Schakel de regel On error Goto eens uit zodat je kan zien op welke regel je de foutmelding krijgt, want als ik jouw code laat lopen werkt deze perfect.
Welke verwijzingen heb je aangevinkt staan in VBA ?
Probeer deze eens

Sub Send_Email_Using_VBA()
 Dim Email_Subject      As String
 Dim Email_Send_From    As String
 Dim Email_Send_To      As String
 Dim Email_Cc           As String
 Dim Email_Bcc          As String
 Dim Email_Body         As String
 
 Email_Subject = "Proef exelblad e-mailen met VBA"
 Email_Send_From = "jaap.zonneveld9@gmail.com."
 Email_Send_To = "infojohnmeijer@gmail.com"
 Email_Cc = ""
 Email_Bcc = ""
 Email_Body = "Gefeliciteerd het is gelukt met VBA !!!!"
 'On Error GoTo debugs
 With CreateObject("Outlook.Application").CreateItem(0)
    .Subject = Email_Subject
    .To = Email_Send_To
    .cc = Email_Cc
    .BCC = Email_Bcc
    .Body = Email_Body
    .display '.send
 End With
debugs:
 If Err.Description <> "" Then MsgBox Err.Description
 End Sub

 

[snb]

Het staat hier allemaal al voor je klaar.

 

[Oude leerling]

Warme bakkertje,

Met jou oplossing ben ik al een stap verder.
Het outlook venster word geopend ik zie alleen geen bijlage , het te versturen exelblad.
Kan je me verder helpen??

Groetjes Jaap

Snb, ook bedankt voor het gebodene
Ik had geen vermoeden dat er zoveel mogelijkheden waren
Ik heb ze mooi opgeslagen op de PC

 

[OctaFish]

Ron de Bruin heeft een prima routine waarmee je een werkblad kunt mailen.

 

[oceanrace]

Ik gebruik CDO mail van Ron de Bruin, deze werkt prima (tenzij de poorten door een firewall worden geblocked).

 

[Oude leerling]

Gelukt!!

Een ieder hartelijk bedankt voor de geboden oplossingen.

Groetjes Jaap

 

[Warme bakkertje]

Sub Send_Email_Using_VBA()
 Dim Email_Subject      As String
 Dim Email_Send_From    As String
 Dim Email_Send_To      As String
 Dim Email_Cc           As String
 Dim Email_Bcc          As String
 Dim Email_Body         As String
 
 Email_Subject = "Proef exelblad e-mailen met VBA"
 Email_Send_From = "jaap.zonneveld9@gmail.com."
 Email_Send_To = "infojohnmeijer@gmail.com"
 Email_Cc = ""
 Email_Bcc = ""
 Email_Body = "Gefeliciteerd het is gelukt met VBA !!!!"
 'On Error GoTo debugs
 c00 = "[COLOR="#FF0000"]F:\Test.[/COLOR]"& CreateObject("scripting.filesystemobject").getextensionname(ThisWorkbook.Name)
c01 = ThisWorkbook.FileFormat

ThisWorkbook.Sheets("[COLOR="#FF0000"]Sheet1[/COLOR]").Copy

With ActiveWorkbook
.SaveAs c00, c01
.Close False
End With
 With CreateObject("Outlook.Application").CreateItem(0)
    .Subject = Email_Subject
    .To = Email_Send_To
    .cc = Email_Cc
    .BCC = Email_Bcc
    .Body = Email_Body
    .attachments.Add c00
    .display '.send
 End With
 Kill c00
End Sub

Wijzig de rode tekst in het juiste pad en naam(let op het punt bij de bestandsnaam) en de juiste bladnaam