PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBAHämta mailadressHämta mailadress
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2019-06-17 09:31
 

Hej

Sänder iväg fakturor och i dagsläget så har jag lagt in mailadressen i makrot, skulle vilja att makrot hämtar mailadressen på ett visst blad och cell i stället.

 

 Sub Send_Range1()

Application.ScreenUpdating = False
   ActiveSheet.Range("A1:I29").Select
   ActiveWorkbook.EnvelopeVisible = True
   With ActiveSheet.MailEnvelope
      .Introduction = "Namn"
      .Item.To = "hämta in mailadress från ett visst blad/cell "
      .Item.Subject = "Faktura"
      .Item.Send
   End With
    Application.CutCopyMode = False
    Range("M40").Select
    Application.ScreenUpdating = True
   
End Sub
 
Janne
Nytt inlägg
 2019-06-17 10:08
 
Hej hej

Byt ut det som står innanför citationstecknen, dessa ska dock finnas kvar. byt ut din item.to rad mot den jag angav.

Sub Send_Range1()
Dim sMail as string: sMail = sheets("namnpåbladet").range("a1")

.Item.To = sMail

mvh
Christian
Nytt inlägg
 2019-06-25 07:26
 

 Tack Christian

Funkade jätte bra..

Janne

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBAHämta mailadressHämta mailadress

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter