versturen van mail : overgang van excel naar outlook

Status
Niet open voor verdere reacties.

marccram

Gebruiker
Lid geworden
20 dec 2015
Berichten
40
Via VBA in excell , maak ik een mail aan in Outlook met een bepaalde range. Dit werkt.

Wat had ik graag gewenst : ik ben in excell, ik voer de macro uit , de mail wordt aangemaakt en getoond, ik wijzig nog eventueel de mail en doe dan "verzenden" en kom dan terug in excell

Wat gebeurd er nu : ik ben in excell, ik voer de macro uit , de mail wordt aangemaakt , ik zie dat de mail is aangemaakt ( onderaan mijn scherm staat outlook "in het oranje te knipperen") , ik moet dan outlook aanklikken om mijn mail te zien , "verzenden" en dan terug onderaan mijn scherm excell aanklikken.



Sub workwork()

Dim cl As Range
Dim lijn2 As String
Dim Startvanbody As String
Dim Eindevanbody As String
Dim Week As String
Dim Hoofding As String
Dim Einde As String
Dim Val5 As String
Dim Val6 As String
Dim onderwerp As String
Dim naar As String
'
Sheets("Sol").Select
'
Week = Range("E6")
naar = Range("E5")
onderwerp = Range("E7")
Order = Range("E8")
'
' aanmaken van "hoofding" van mail
'
With CreateObject("Outlook.Application").CreateItem(0)
.To = naar
.Subject = onderwerp & Order
'
Startvanbody = "Hello"
Eindevanbody = "Bye"
'
' copieer bepaalde range into body of mail
'
c01 = "<table border=1 bgcolor=#FFFFF0#>"
sn = Sheets("Solucious").Range(Val5, Val6)
For j = 1 To UBound(sn)
c01 = c01 & "<tr><td>" & Join(Application.Index(sn, j), "</td><td>") & "</td></tr>"
Next
c01 = c01 & "</table><P></P><P></P>"

.HTMLBody = Startvanbody & c01 & Eindevanbody
.Display

End With
End Sub
 
Doe ons (en jezelf) een lol en maak de code in je bericht op met de CODE tags; nu krijg ik alleen al van het scrollen een muisarm :).
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan