Datei per Mail versenden
25.11.2020 14:53:15
sigrid
habe dieses Makro zum versenden einer Datei mit Outlook.
Es funktioniert einwandfrei, jetzt möchte ich gern eine bestimmte
Mailadresse für das Konto von Wo die Mail versendet wird.
Also neue Mail vom Konto ...
da wo man sonst eine Konto auswählen kann, ich weiß nicht wie ich dies im
Makro und wo einsetzen muss.
Public Sub Angebot_versenden_Email()
Dim Outlook As Object
Dim Mail As Object
Dim Att As Object
Dim Fullname As String
Dim Dlg As Office.FileDialog
Dim dname As String
dname = ActiveDocument.name
If ActiveDocument.Saved Then
Fullname = ActiveDocument.Fullname
Else
Set Dlg = Application.FileDialog(msoFileDialogSaveAs)
Dlg.Show
If Dlg.SelectedItems.Count Then
Fullname = Dlg.SelectedItems(1)
Else
Exit Sub
End If
End If
Set Outlook = GetObject(, "outlook.application")
Set Mail = Outlook.CreateItem(0)
Set Att = Mail.Attachments.Add(Fullname)
With Mail
.To = "Test@t-online.de"
End With
Mail.Display
End Sub