Mail von bestimmter Adresse versenden

[thunder28]

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

[mumpel]

Hallo!

Stichwort SendUsingAccount.

Gruß, René

[thunder28]

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

gruss
thunder28