Email via excel vba

Status
Niet open voor verdere reacties.

felix85

Gebruiker
Lid geworden
9 feb 2009
Berichten
38
Hallo,

Ik heb deze site echt helemaal doorploegd wat betreft emailen via excel vba, en ook de site van Ron de Bruin.

Maar ik ben een juppie op het gebied van vba maar wil in excel dat je via een knop op het userform een onderlegger voor een email te sturen kunt maken.

Dat je alleen het emailadress en bijvoorbeeld te contactpersoon enzovoorts hoeft in te vullen, maar de vaste voorwaarden al standaard in de mail staan, kan dit?

En dat ik dit uitbreidt met een mail voor een offerte en een mail naar de opdrachtgever enzz??

Alvast bedankt Experts

Groetjes Felix
 
Hoi Felix,

Ik heb een hele tijd geleden onderstaand stukje code gevonden die ik nog steeds gebruik als basis voor mail oplossingen.
Ik hoop dat het jou net zo op weg helpt als mij.

Let op een geldige bijlage (of verwijder de opdracht) en een geldig mailadres.

Groet Karel 2

Code:
Dim objOutlk As Object
Dim objMail As Object
Dim strMsg As String

Set objOutlk = CreateObject("Outlook.Application")
Set objMail = objOutlk.createitem(olMailItem)
Set MyAttachements = objMail.Attachments

strMsg = strMsg & "Geachte mevr meneer," & vbCrLf & vbCrLf
strMsg = strMsg & "Het is mij een genoegen u mee te mogen delen dat u de lotto heeft gewonnen." & vbCrLf
strMsg = strMsg & "Zie voor nadere informatie de bijlage." & vbCrLf & vbCrLf
strMsg = strMsg & "M.V.G. Karel 2" & vbCrLf & vbCrLf

With objMail   'To will support more than one email address as shown below
    .To = "karel2@mail.nl"
    .cc = "karel2@mail.nl"
    .Subject = "Het is gelukt!!"        'Subject
    .body = strMsg                      'Body
    MyAttachements.Add "C:\test.pdf"   'Add attachment
    .Send                               'Send mail
End With

ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
Set objMail = Nothing       'Clean up object
Set objOutlk = Nothing      'Clean up object
 
En dan simpel

Code:
With CreateObject("Outlook.Application").createitem(olMailItem)
  .To = "karel2@mail.nl"
  .cc = "karel2@mail.nl"
  .Subject = "Het is gelukt"
  .body = replace("Geachte mevrouw/heer,#Het is mij een genoegen u mee te mogen delen dat u de lotto heeft gewonnen.#Zie voor nadere informatie de bijlage.#M.V.G. Karel 2","#",vbcr)
  .Attachments.Add "C:\test.pdf"
  .Send
End With
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan