Office-Fragen.de
Mail von bestimmter Adresse versenden - Druckversion

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Mail von bestimmter Adresse versenden (/thread-28844.html)

Mail von bestimmter Adresse versenden - thunder28 - 12.07.2023

Hallo 

Ich möchte eine Excel Datei - zu Pdf gewandelt - von einer bestimmten Emailadresse (ich habe mehrere) versenden. 
Wie bekomme ich eine feste Sende-Email-Adresse hin?
Vielen Dank für Eure Antworten.

Ich habe folgendes Makro zum Email versandt:

Code:
Sub pdf_per_mail2()

'** Dimensionierung der Variablen
Dim strPDF As String
Dim OutlookApp As Object, strEmail As Object

'** Vorgaben definieren
Set OutlookApp = CreateObject("Outlook.Application")
Set strEmail = OutlookApp.CreateItem(0)

'** PDF erzeugen
Worksheets("Bestellung Stz").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  ThisWorkbook.Path & "\Bestellung Stz.pdf", Quality:=xlQualityStandard _
  , IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
  :=False

'** E-Mail versenden
strPDF = ThisWorkbook.Path & "\Bestellung Stz.pdf"
With strEmail

  .To = "deine Emailadresse"
  .Subject = "1619_" & Range("R22").Text & "" 'Betreffzeile
  .body = "Sehr geehrte Damen und Herren, " & vbNewLine _
        & vbNewLine _
        & "anbei unsere aktuelle Bestellung." & vbNewLine _
        & " "
  .Attachments.Add strPDF
  .Display
  '.Send 'Damit wird die E-Mail sofort versendet
  '**Kill strPDF
End With
 
'** Objektvariablen wieder löschen
Set OutlookApp = Nothing
Set strEmail = Nothing
End Sub

gruss
thunder28

RE: Mail von bestimmter Adresse versenden - mumpel - 12.07.2023

Hallo!

Stichwort SendUsingAccount.

Gruß, René

RE: Mail von bestimmter Adresse versenden - thunder28 - 12.07.2023

Danke für den Hinweis, Rene, darauf bin ich auf .SentOnBehalfOfName gestoßen. Was klappt.

gruss
thunder28