vab email versenden mit variablen
03.08.2018 13:01:18
Bastian
ich habe ein kleines Problem und leider kenn ich mich mit vba sehr wenig aus.
Ich möchte mit Hilfe von Excel eine Email versenden, was auch schon ganz gut klappt. Ich habe ein HTML-Textfeld mit 2 Variablen ( [@NAME] und [@FIRMENNAME] ). Leider ersetzt mein Code diese beiden Werte nicht, allerdings wenn ich es mit einer Variablen ausprobiere klappt es (siehe Code).
Kann mir jemand helfen?
Private Sub Send_Email()
'
Dim sTitle As String
sTitle = "HALLO WELT"
'
Dim sTemplate As String
sTemplate = Sheets("Str+E 1.Anschr. nach Inet-seite").Shapes(1).TextFrame2.TextRange.Text
'
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
'
Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)
Dim sEmail_Address As String
Dim sEmail_Name As String
Dim sEmail_Firmenname As String
Dim sHTML As String
'
sEmail_Address = ActiveCell.Offset(9, 0)
'sEmail_Firmenname = Cells(ActiveCell.Row - 17, 2)
sEmail_Name = ActiveCell.Offset(2, 0)
'
'sHTML = Replace(sTemplate, "[@FIRMENNAME]", sEmail_Firmenname)
sHTML = Replace(sTemplate, "[@NAME]", sEmail_Name)
Set objEmail = objOutlook.CreateItem(olMailItem)
With Mail
'
objEmail.To = sEmail_Address
objEmail.Subject = sTitle
'objEmail.Body = sHTML
objEmail.htmlbody = sHTML
objEmail.ReadReceiptRequested = True
objEmail.Attachments.Add ("C:\Users\Nutzer\Documents\Bewerbung.pdf")
objEmail.Display
'
VBA.SendKeys "^{END}", True
strSignatur = "Bastian Deisen"
objEmail.GetInspector.CommandBars.Item("Insert").Controls("Signatur").Controls( _
strSignatur). _
Execute
'
'objEmail.Send
End With
'
Set objEmail = Nothing
Set objOutlook = Nothing
End Sub