Code in Visual Basic
15.12.2017 13:37:18
Karl
ich möchte aus einer Excel-Tabelle eine E-Mail automatisch erstellen, wo gewisse Wörter in Fett hervorgehoben werden.
Das wäre mein Code, bin aber unfähig den Code für Fett zu finden :-(
Private Sub CommandButton1_Click()
On Error Resume Next
Dim AktuelleZeile As Integer
AktuelleZeile = ActiveCell.Row
If MsgBox("Gewählte Auftragsnummer: " & Range("A" & AktuelleZeile), vbOKCancel, "Achtung!") _
_
= vbOK Then
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.Display
.To = "E-mailadresse"
.Subject = "Auftrag Nr: " & Range("A" & AktuelleZeile) & ", " & Range("F" & _
AktuelleZeile)
.Body = "Sehr geehrte Damen und Herren!" & vbCrLf & vbCrLf & _
"Anbei dürfen wir Ihnen nachfolgenden Auftrag mit der Bitte um Bearbeitung übermitteln." _
_
& vbCrLf & vbCrLf & _
"Auftragsnummer: " & Range("A" & AktuelleZeile) & vbCrLf & _
"Auftragsgruppe: " & Range("F" & AktuelleZeile) & vbCrLf & _
"Termin zur Erledigung: " & Range("K" & AktuelleZeile) & vbCrLf & vbCrLf & _
"Gebäude/Bereich: " & Range("C" & AktuelleZeile) & ", " & Range("D" & AktuelleZeile) & _
_
", " & Range("E" & AktuelleZeile) & vbCrLf & _
"Ansprechperson vor Ort: " & Range("I" & AktuelleZeile) & vbCrLf & vbCrLf & _
"AUFTRAGSINHALT: " & Range("G" & AktuelleZeile) & vbCrLf & _
"Anmerkung: " & Range("H" & AktuelleZeile) & vbCrLf & vbCrLf & _
"______________________________________________________________________________" & _
vbCrLf & vbCrLf & _
"Vielen Dank & beste Grüße" & vbCrLf & _
Range("J" & AktuelleZeile) & vbCrLf & vbCrLf & _
End With
Else
End If
End Sub