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
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