• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bestand met afbeelding versturen via email

Status
Niet open voor verdere reacties.
P

patje8

Gebruiker
Lid geworden
31 jul 2005
Berichten
428
Ik heb een bestelformulier gemaakt om mijn bestellingen te versturen via mail.
Het probleem is echter dat de afbeelding niet via VBA code mee wordt verstuurd.
Hoe kan ik dit aanpassen.
 

Bijlagen

  • bestellenTEST.xlsm
    180,5 KB · Weergaven: 23
Waarom niet gewoon als attachment ?
In plaats van al je (RdB) code:

Code: 
Sub M_snb()
  With createobject("outlook.Application").createitem(0)
    .To = Sheets("Bestellen").Range("f4").Value
    .CC = .Sheets("Bestellen").Range("o1").Value
    .Subject = "Bestelling FAVORIT"
    .attachments.add thisworkbook.fullname
    .Send
  End With
End Sub
 
Als je van een bestand met afbeeldingen een html-bestand maakt worden de afbeeldingen in een aparte folder opgeslagen.
Sla ter illustratie deze webpagina maar eens op als html-bestand op je computer en zie welke mappen er dan worden aangemaakt.
Bijlage toevoegen is effektief en eenvoudig (dat is toch altijd de bedoeling van automatiseren ?).
 
Laatst bewerkt:
Met PDF als attachment.
Code: 
Private Sub CommandButton1_Click()
    Dim OutApp As Object
    Dim OutMail As Object
  
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    
    With Sheets("Bestellen")
         pdf = Environ("temp") & "\" & "Bestelling datum " & "  " & .Range("F1") & ".pdf"
        .Range("D1:H45").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf
        
        StrSubject = "Bestelling"
        strbody = "Beste," & vbCrLf & vbCrLf & _
               "Als bijlage ontvangt U hierbij de bestelling." & vbCrLf & vbCrLf & _
               "Met vriendelijke groeten," & vbCrLf & vbCrLf & _
                .Range("D44")
    End With

    With OutMail
        .To = ThisWorkbook.Sheets("Bestellen").Range("f4").Value
        .CC = ThisWorkbook.Sheets("Bestellen").Range("O1").Value
        .Subject = StrSubject
        .Body = strbody
        .Attachments.Add pdf
        .Display      ' .Send voor direct verzenden
    End With
    
    

    
    
    Kill pdf 'verwijderen van het tijdelijk aangemaakte bestand*
    Set OutMail = Nothing
    Set OutApp = Nothing
End
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan