Email aus Excel versenden - Schriftart ändern
30.07.2015 10:14:25
Daniel
Ich bin leider bezüglich VBA ein Anfänger und brauch Eure Hilfe.
Ich möchte aus Excel heraus eine Email mit der Datei im Anhang versenden. Dies funktioniert bereits. Leider wird die Schriftart Times New Roman verwendet, ich darf allerdings nur Verdana benutzen. Hat jemand einen Tipp, wie ich dies im Makro einbauen kann?
Ich versteh leider auch den Unterschied zwischen .Body und .HTMLBody nicht :-(
Aber es funktioniert irgendwie...
Vielen Dank schon mal für Eure Hilfe!
Hier das Makro:
Sub Email_versenden()
Dim MyMessage As Object, MyOutApp As Object
Dim Qe As Integer
Dim AWS As String
If ThisWorkbook.Saved = False Then
Qe = MsgBox("Diese Mappe wurde noch nicht gespeichert, und kann nicht versandt werden!" _
_
_
_
_
& Chr$(13) & "Soll die Datei gespeichert werden?", vbInformation + vbYesNo, " _
Sendefehler")
If Qe = vbNo Then
MsgBox "Sendevorgang abgebrochen"
Exit Sub
Else
If Right(ThisWorkbook.Name, 3) "xls" Then
Application.Dialogs(xlDialogSaveAs).Show
Else
ThisWorkbook.Save
End If
End If
End If
AWS = ThisWorkbook.FullName
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
'Empfänger
.To = "Max.Mustermann@irgendwo.de"
.Subject = "Testmeldung von Excel2000 " & Date & Time
.Attachments.Add AWS
.Body = "Hallo Max
Anbei übersende ich Dir die aktuelle Liste.
Liebe _
_
_
_
Grüsse
Max"
.HTMLBody = "Hallo Max
Anbei übersende ich Dir die aktuelle Liste.
_
Liebe Grüsse
Max"
.Display
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub